freckle-http 0.3.0.1 → 0.3.1.0

raw patch · 6 files changed

+13/−4 lines, 6 files

Files

CHANGELOG.md +5/−1
freckle-http.cabal +1/−1
library/Freckle/App/Http/Cache.hs +4/−1
library/Freckle/App/Http/Cache/Memcached.hs +1/−0
library/Freckle/App/Http/Cache/State.hs +1/−0
package.yaml +1/−1

CHANGELOG.md view

@@ -1,4 +1,8 @@-## [_Unreleased_](https://github.com/freckle/freckle-http/compare/v0.3.0.1...main)+## [_Unreleased_](https://github.com/freckle/freckle-http/compare/v0.3.1.0...main)++## [v0.3.1.0](https://github.com/freckle/freckle-http/compare/v0.3.0.1...v0.3.1.0)++- Add `HttpCacheSettings{forceTTL}`  ## [v0.3.0.1](https://github.com/freckle/freckle-http/tree/v0.3.0.1)

freckle-http.cabal view

@@ -1,6 +1,6 @@ cabal-version:      1.18 name:               freckle-http-version:            0.3.0.1+version:            0.3.1.0 license:            MIT license-file:       LICENSE maintainer:         Freckle Education

library/Freckle/App/Http/Cache.hs view

@@ -53,6 +53,7 @@ data HttpCacheSettings m t = HttpCacheSettings   { shared :: Bool   , cacheable :: Request -> Bool+  , forceTTL :: Maybe CacheTTL   , defaultTTL :: CacheTTL   , getCurrentTime :: m UTCTime   , logDebug :: Message -> m ()@@ -238,7 +239,9 @@   guard     $ not settings.shared || Private `notElem` responseHeaders.cacheControl   guard $ statusIsCacheable $ HTTP.responseStatus resp-  pure $ fromMaybe settings.defaultTTL $ responseHeadersToTTL responseHeaders+  pure $ case settings.forceTTL of+    Nothing -> fromMaybe settings.defaultTTL $ responseHeadersToTTL responseHeaders+    Just ttl -> ttl  where   responseHeaders = getResponseHeaders resp

library/Freckle/App/Http/Cache/Memcached.hs view

@@ -47,6 +47,7 @@   HttpCacheSettings     { shared = True     , cacheable = const True+    , forceTTL = Nothing     , defaultTTL     , getCurrentTime = liftIO getCurrentTime     , logDebug = logDebugNS "http.cache"

library/Freckle/App/Http/Cache/State.hs view

@@ -56,6 +56,7 @@   HttpCacheSettings     { shared = False     , cacheable = const True+    , forceTTL = Nothing     , defaultTTL = fiveMinuteTTL     , getCurrentTime = liftIO getCurrentTime     , logDebug = \_ -> pure ()

package.yaml view

@@ -1,5 +1,5 @@ name: freckle-http-version: 0.3.0.1+version: 0.3.1.0 maintainer: Freckle Education category: HTTP github: freckle/freckle-http