servant-tower-hs 0.1.0.0 → 0.1.1.0

raw patch · 3 files changed

+9/−3 lines, 3 filesdep ~tower-hsPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: tower-hs

API changes (from Hackage documentation)

Files

• CHANGELOG.md +5/−0
• servant-tower-hs.cabal +2/−2
• test/Servant/Tower/IntegrationSpec.hs +2/−1

@@ -1,5 +1,10 @@ # Changelog +## 0.1.1.0 — 2026-04-07++- Adopt `(&)` from `Data.Function` as idiomatic style in tests and examples+- Requires `tower-hs >= 0.2.0.0`+ ## 0.1.0.0 — 2026-04-06  - Initial release

@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack  name:           servant-tower-hs-version:        0.1.0.0+version:        0.1.1.0 synopsis:       Use tower-hs middleware with servant clients description:    servant-tower-hs provides an adapter to use tower-hs middleware                 (retry, timeout, circuit breaker, etc.) with servant-client's@@ -52,7 +52,7 @@     , servant-client ==0.20.*     , servant-client-core ==0.20.*     , text >=2.0 && <2.2-    , tower-hs >=0.1.0.0 && <0.2+    , tower-hs >=0.2.0.0 && <0.3     , uuid ==1.3.*   default-language: Haskell2010 

@@ -8,6 +8,7 @@ import Control.Concurrent (threadDelay) import Control.Concurrent.STM (newTVarIO, readTVar, TVar, modifyTVar', atomically) import Control.Monad.IO.Class (liftIO)+import Data.Function ((&)) import Data.IORef import Data.Proxy (Proxy(..)) import Data.Text (Text, isInfixOf)@@ -96,7 +97,7 @@ runWithMiddleware port action applyMw = do   manager <- newManager defaultManagerSettings   baseUrl' <- parseBaseUrl $ "http://localhost:" ++ show port-  let env = applyMw (mkClientEnv manager baseUrl')+  let env = mkClientEnv manager baseUrl' & applyMw   runClientM action env  runPlain :: Int -> ClientM a -> IO (Either ClientError a)