From dae870a1999f356a71719d1fafadb94bd4c94dc3 Mon Sep 17 00:00:00 2001 From: Andreas Schacker Date: Fri, 27 Feb 2026 17:44:29 +0100 Subject: [PATCH 1/2] Fix typo in function name --- persistent-redis/Database/Persist/Redis/Internal.hs | 2 +- persistent-redis/Database/Persist/Redis/Parser.hs | 6 +++--- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/persistent-redis/Database/Persist/Redis/Internal.hs b/persistent-redis/Database/Persist/Redis/Internal.hs index 02c860619..eda8f6650 100644 --- a/persistent-redis/Database/Persist/Redis/Internal.hs +++ b/persistent-redis/Database/Persist/Redis/Internal.hs @@ -33,7 +33,7 @@ mkEntity => Key val -> [(B.ByteString, B.ByteString)] -> m (Entity val) mkEntity key fields = do let - values = redisToPerisistValues fields + values = redisToPersistValues fields let v = fromPersistValues values case v of diff --git a/persistent-redis/Database/Persist/Redis/Parser.hs b/persistent-redis/Database/Persist/Redis/Parser.hs index f9f96b581..95e3f1664 100644 --- a/persistent-redis/Database/Persist/Redis/Parser.hs +++ b/persistent-redis/Database/Persist/Redis/Parser.hs @@ -1,5 +1,5 @@ module Database.Persist.Redis.Parser - ( redisToPerisistValues + ( redisToPersistValues , toValue ) where @@ -157,5 +157,5 @@ toValue = L.toStrict . encode . BinPersistValue castOne :: B.ByteString -> PersistValue castOne = unBinPersistValue . Q.decode . L.fromStrict -redisToPerisistValues :: [(B.ByteString, B.ByteString)] -> [PersistValue] -redisToPerisistValues = map (castOne . snd) +redisToPersistValues :: [(B.ByteString, B.ByteString)] -> [PersistValue] +redisToPersistValues = map (castOne . snd) From 5b8b22b1c3306b00e89938cbc9cde75bd05a4b86 Mon Sep 17 00:00:00 2001 From: Andreas Schacker Date: Fri, 27 Feb 2026 19:46:12 +0100 Subject: [PATCH 2/2] Update ChangeLog.md --- persistent-redis/ChangeLog.md | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/persistent-redis/ChangeLog.md b/persistent-redis/ChangeLog.md index 0c881be79..b431debcf 100644 --- a/persistent-redis/ChangeLog.md +++ b/persistent-redis/ChangeLog.md @@ -1,3 +1,8 @@ +## Unreleased + +* [#1621](https://github.com/yesodweb/persistent/pull/1621) + * Fix typo in function name + ### 2.13.0.2 * [#1536](https://github.com/yesodweb/persistent/pull/1536)