packages feed

freckle-http 0.2.0.0 → 0.3.0.0

raw patch · 6 files changed

+12/−8 lines, 6 filesdep ~freckle-preludePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: freckle-prelude

API changes (from Hackage documentation)

Files

CHANGELOG.md view
@@ -1,4 +1,8 @@-## [_Unreleased_](https://github.com/freckle/freckle-app/compare/freckle-http-v0.2.0.0...main)+## [_Unreleased_](https://github.com/freckle/freckle-app/compare/freckle-http-v0.3.0.0...main)++## [v0.3.0.0](https://github.com/freckle/freckle-app/compare/freckle-http-v0.2.0.0...freckle-http-v0.3.0.0)++- Update `HttpCache.set` to accept TTL (and use it in memcached implementation)  ## [v0.2.0.0](https://github.com/freckle/freckle-app/compare/freckle-http-v0.1.0.0...freckle-http-v0.2.0.0) 
freckle-http.cabal view
@@ -1,6 +1,6 @@ cabal-version:      1.18 name:               freckle-http-version:            0.2.0.0+version:            0.3.0.0 license:            MIT license-file:       LICENSE maintainer:         Freckle Education@@ -118,7 +118,7 @@         base >=4.16.4.0 && <5,         bytestring >=0.11.4.0,         freckle-http,-        freckle-prelude >=0.0.1.1,+        freckle-prelude >=0.0.4.0,         hspec >=2.8.1,         hspec-expectations-json >=1.0.0.7,         hspec-expectations-lifted >=0.10.0,
library/Freckle/App/Http/Cache.hs view
@@ -68,7 +68,7 @@  data HttpCache m t = HttpCache   { get :: CacheKey -> m (Either SomeException (Maybe t))-  , set :: CacheKey -> t -> m (Either SomeException ())+  , set :: CacheKey -> t -> CacheTTL -> m (Either SomeException ())   , evict :: CacheKey -> m (Either SomeException ())   } @@ -176,7 +176,7 @@              , "ttl" .= fromCacheTTL ttl              ]       let cresp = CachedResponse {response = resp, inserted = now, ttl = ttl}-      fromEx () $ settings.cache.set key $ settings.codec.serialise cresp+      fromEx () $ settings.cache.set key (settings.codec.serialise cresp) ttl      gunzipResponseBody req resp 
library/Freckle/App/Http/Cache/Memcached.hs view
@@ -74,7 +74,7 @@ memcachedHttpCache =   HttpCache     { get = try . Memcached.get-    , set = \k v -> try $ Memcached.set k v 0+    , set = \k v t -> try $ Memcached.set k v t     , evict = try . Memcached.delete     } 
library/Freckle/App/Http/Cache/State.hs view
@@ -75,7 +75,7 @@ stateHttpCache =   HttpCache     { get = \key -> fmap Right $ use $ cacheL . mapL . at key-    , set = \key resp -> fmap Right $ cacheL . mapL . at key ?= resp+    , set = \key resp _ -> fmap Right $ cacheL . mapL . at key ?= resp     , evict = \key -> fmap Right $ cacheL . mapL . at key .= Nothing     } 
package.yaml view
@@ -1,5 +1,5 @@ name: freckle-http-version: 0.2.0.0+version: 0.3.0.0 maintainer: Freckle Education category: HTTP github: freckle/freckle-app