From 65969ce8287bf194143de29156628c137f0e89a2 Mon Sep 17 00:00:00 2001 From: Curran McConnell Date: Mon, 30 Dec 2024 18:27:27 -0500 Subject: [PATCH] undo redundant change --- persistent-redis/Database/Persist/Redis/Internal.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/persistent-redis/Database/Persist/Redis/Internal.hs b/persistent-redis/Database/Persist/Redis/Internal.hs index 82876b66a..8f4ab66d4 100644 --- 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