hlrdb-core 0.1.2.1 → 0.1.2.2

raw patch · 2 files changed

+7/−4 lines, 2 files

Files

• hlrdb-core.cabal +1/−1
• src/HLRDB/Structures/HSet.hs +6/−3

@@ -1,5 +1,5 @@ name:                hlrdb-core-version:             0.1.2.1+version:             0.1.2.2 synopsis:            High-level Redis Database Core API description:         A library for type-driven interaction with Redis license:             MIT

@@ -41,9 +41,12 @@     reifyTraversal tr bs = evalState (traverse g tr) bs       where         g a = do-          (b:bs') <- Control.Monad.State.get-          put bs'-          return (a,b)+          xs <- Control.Monad.State.get+          case xs of+            [] -> error "Impossible in hmget: unexpected data size in HLRDB.Structures.HSet.hmget"+            (b:bs') -> do+              put bs'+              return (a,b)  -- | Set via key and subkey hset :: MonadRedis m => RedisHSet a s b -> a -> s -> b -> m (ActionPerformed Creation)