Fix typo in function name

Author: menelaos

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

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)