shikumi-cache-redis 0.1.0.1 → 0.1.1.0

raw patch · 3 files changed

+19/−10 lines, 3 filesdep ~shikumidep ~shikumi-cachedep ~shikumi-cache-redisPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: shikumi, shikumi-cache, shikumi-cache-redis

API changes (from Hackage documentation)

Files

• CHANGELOG.md +9/−0
• shikumi-cache-redis.cabal +5/−5
• src/Shikumi/Cache/Backend/Redis.hs +5/−5

@@ -2,6 +2,15 @@  ## Unreleased +## 0.1.1.0 - 2026-06-28++### Changed++- Refreshed internal `shikumi` and `shikumi-cache` bounds for the current package+  set.+- Updated Redis backend internals to match the record-patterns conventions used+  across the package set.+ ## 0.1.0.1 - 2026-06-21  ### Changed

@@ -1,6 +1,6 @@ cabal-version:   3.4 name:            shikumi-cache-redis-version:         0.1.0.1+version:         0.1.1.0 synopsis:        Redis-backed shikumi cache (EP-6) category:        AI description:@@ -41,7 +41,7 @@     , bytestring     , effectful     , hedis-    , shikumi-cache  ^>=0.1.0.1+    , shikumi-cache  ^>=0.1.1.0     , text           ^>=2.1  test-suite shikumi-cache-redis-test@@ -58,9 +58,9 @@     , generic-lens     , hedis     , lens-    , shikumi              ^>=0.1.0.1-    , shikumi-cache        ^>=0.1.0.1-    , shikumi-cache-redis  ^>=0.1.0.1+    , shikumi              ^>=0.2.0.0+    , shikumi-cache        ^>=0.1.1.0+    , shikumi-cache-redis  ^>=0.1.1.0     , tasty     , tasty-hunit     , text

@@ -30,8 +30,8 @@ -- | An open Redis-backed cache: a connection plus the TTL (seconds) applied to -- every stored entry. data RedisCache = RedisCache-  { redisConn :: !R.Connection,-    redisTTL :: !Integer+  { conn :: !R.Connection,+    ttl :: !Integer   }  -- | The default entry TTL: 7 days (in seconds).@@ -51,7 +51,7 @@  -- | Close the Redis connection. closeRedisCache :: RedisCache -> IO ()-closeRedisCache = R.disconnect . redisConn+closeRedisCache = R.disconnect . conn  -- | The operational Redis key for a content-addressed 'CacheKey'. redisKey :: CacheKey -> ByteString@@ -63,10 +63,10 @@ runCacheRedis :: (IOE :> es) => RedisCache -> Eff (Cache : es) a -> Eff es a runCacheRedis cache = interpret $ \_ -> \case   LookupCache k -> liftIO $ do-    r <- R.runRedis (redisConn cache) (R.get (redisKey k))+    r <- R.runRedis (conn cache) (R.get (redisKey k))     pure $ case r of       Right (Just bs) -> decodeStrict' bs       _ -> Nothing   StoreCache k v -> liftIO $ do-    _ <- R.runRedis (redisConn cache) (R.setex (redisKey k) (redisTTL cache) (BL.toStrict (encode v)))+    _ <- R.runRedis (conn cache) (R.setex (redisKey k) (ttl cache) (BL.toStrict (encode v)))     pure ()