undo redundant change

yesodweb · Dec 30, 2024 · 65969ce · 65969ce
1 parent 7f990da
commit 65969ce
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/persistent-redis/Database/Persist/Redis/Internal.hs b/persistent-redis/Database/Persist/Redis/Internal.hs
@@ -23,10 +23,10 @@ toLabel :: FieldDef -> B.ByteString
 toLabel = U.fromString . unpack . unFieldNameDB . fieldDB
 
 toEntityString :: PersistEntity val => val -> Text
-toEntityString = unEntityNameDB . getEntityDBName . entityDef . Just
+toEntityString = unEntityNameDB . entityDB . entityDef . Just
 
 toEntityName :: EntityDef -> B.ByteString
-toEntityName = U.fromString . unpack . unEntityNameDB . getEntityDBName
+toEntityName = U.fromString . unpack . unEntityNameDB . entityDB
 
 mkEntity :: (MonadFail m, PersistEntity val) => Key val -> [(B.ByteString, B.ByteString)] -> m (Entity val)
 mkEntity key fields = do