diff --git a/persistent/Database/Persist/EntityDef.hs b/persistent/Database/Persist/EntityDef.hs index ea4c4504e..4e2fe93fc 100644 --- a/persistent/Database/Persist/EntityDef.hs +++ b/persistent/Database/Persist/EntityDef.hs @@ -84,9 +84,7 @@ getEntityHaskellName = entityHaskell getEntityDBName :: EntityDef -> EntityNameDB -getEntityDBName entityDef = case entitySchema entityDef of - Nothing -> entityDB entityDef - Just schema -> EntityNameDB $ schema <> "." <> unEntityNameDB (entityDB entityDef) +getEntityDBName = entityDB getEntityExtra :: EntityDef -> Map Text [[Text]] getEntityExtra = entityExtra