From eb49123d9d119aa298aeaa4d4511db0f0bd6a256 Mon Sep 17 00:00:00 2001 From: Curran McConnell Date: Tue, 1 Oct 2024 16:13:56 -0400 Subject: [PATCH] revert --- persistent/Database/Persist/EntityDef.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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