persistent-redis 2.5.2.5 → 2.12.0.0

raw patch · 5 files changed

+27/−23 lines, 5 filesdep −persistent-templatedep ~persistentnew-uploader

Dependencies removed: persistent-template

Dependency ranges changed: persistent

Files

• Database/Persist/Redis/Internal.hs +3/−3
• Database/Persist/Redis/Parser.hs +3/−0
• Database/Persist/Redis/Store.hs +1/−1
• persistent-redis.cabal +2/−3
• tests/basic-test.hs +18/−16

@@ -19,13 +19,13 @@ import Database.Persist.Redis.Parser  toLabel :: FieldDef -> B.ByteString-toLabel = U.fromString . unpack . unDBName . fieldDB+toLabel = U.fromString . unpack . unFieldNameDB . fieldDB  toEntityString :: PersistEntity val => val -> Text-toEntityString = unDBName . entityDB . entityDef . Just+toEntityString = unEntityNameDB . entityDB . entityDef . Just  toEntityName :: EntityDef -> B.ByteString-toEntityName = U.fromString . unpack . unDBName . entityDB+toEntityName = U.fromString . unpack . unEntityNameDB . entityDB  mkEntity :: (MonadFail m, PersistEntity val) => Key val -> [(B.ByteString, B.ByteString)] -> m (Entity val) mkEntity key fields = do

@@ -1,3 +1,4 @@+{-# OPTIONS_GHC -fno-warn-deprecations #-} -- Pattern match 'PersistDbSpecific' module Database.Persist.Redis.Parser     ( redisToPerisistValues     , toValue@@ -128,6 +129,8 @@      put (BinPersistValue (PersistArray _)) = throw $ NotSupportedValueType "PersistArray"     put (BinPersistValue (PersistDbSpecific _)) = throw $ NotSupportedValueType "PersistDbSpecific"+    put (BinPersistValue (PersistLiteral _)) = throw $ NotSupportedValueType "PersistLiteral"+    put (BinPersistValue (PersistLiteralEscaped _)) = throw $ NotSupportedValueType "PersistLiteralEscaped"     put (BinPersistValue (PersistObjectId _)) = throw $ NotSupportedValueType "PersistObjectId"      get = do

@@ -65,7 +65,7 @@         keyId <- execRedisT $ createKey val         let textKey = toKeyText val keyId         key <- liftIO $ toKey textKey-        _ <- insertKey key val+        insertKey key val         return key      insertKey k val = do

@@ -1,5 +1,5 @@ name:            persistent-redis-version:         2.5.2.5+version:         2.12.0.0 license:         BSD3 license-file:    LICENSE author:          Pavel Ryzhov <paul@paulrz.cz>@@ -18,7 +18,7 @@  library     build-depends:   base                  >= 4.9        && < 5-                   , persistent            >= 2.5      && < 3.0+                   , persistent            >= 2.12      && < 3.0                    , aeson                 >= 1.0                    , binary                >= 0.8      && < 0.9                    , bytestring            >= 0.10.8   && < 0.11@@ -50,7 +50,6 @@     build-depends:   base                  >= 4.9      && < 5                    , persistent            >= 2.10     && < 3.0                    , persistent-redis-                   , persistent-template   >= 2.7      && < 3.0                    , aeson                 >= 1.0                    , bytestring            >= 0.10.8   && < 0.11                    , binary                >= 0.8      && < 0.9

@@ -1,23 +1,25 @@-{-# LANGUAGE ExistentialQuantification #-}+{-# LANGUAGE DataKinds                  #-}+{-# LANGUAGE DerivingStrategies         #-}+{-# LANGUAGE ExistentialQuantification  #-}+{-# LANGUAGE FlexibleInstances          #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-}-{-# LANGUAGE MultiParamTypeClasses #-}-{-# LANGUAGE QuasiQuotes #-}-{-# LANGUAGE TemplateHaskell #-}-{-# LANGUAGE TypeFamilies #-}-{-# LANGUAGE TypeSynonymInstances #-}-{-# LANGUAGE UndecidableInstances #-}-{-# LANGUAGE DerivingStrategies #-}-{-# LANGUAGE StandaloneDeriving #-}+{-# LANGUAGE MultiParamTypeClasses      #-}+{-# LANGUAGE QuasiQuotes                #-}+{-# LANGUAGE StandaloneDeriving         #-}+{-# LANGUAGE TemplateHaskell            #-}+{-# LANGUAGE TypeFamilies               #-}+{-# LANGUAGE TypeSynonymInstances       #-}+{-# LANGUAGE UndecidableInstances       #-} module Main where -import Control.Monad.IO.Class (MonadIO, liftIO)-import Data.Text (Text, pack, unpack)-import qualified Database.Redis as R-import Language.Haskell.TH.Syntax+import           Control.Monad.IO.Class     (MonadIO, liftIO)+import           Data.Text                  (Text, pack, unpack)+import qualified Database.Redis             as R+import           Language.Haskell.TH.Syntax -import Database.Persist-import Database.Persist.Redis-import Database.Persist.TH+import           Database.Persist+import           Database.Persist.Redis+import           Database.Persist.TH  let redisSettings = mkPersistSettings (ConT ''RedisBackend)  in share [mkPersist redisSettings] [persistLowerCase|