mangopay 1.10.1 → 1.10.2

raw patch · 2 files changed

+18/−2 lines, 2 files

Files

• mangopay.cabal +1/−1
• src/Web/MangoPay/TestUtils.hs +17/−1

@@ -1,5 +1,5 @@ name:           mangopay-version:        1.10.1+version:        1.10.2 cabal-version:  >= 1.8 build-type:     Simple author:         JP Moresmau <jpmoresmau@gmail.com>

@@ -16,6 +16,10 @@      -- ** Tear down   , ensureNoEvents++    -- ** Bug workarounds+  , withWorkaroundManager+  , newWorkaroundManager   ) where  import Blaze.ByteString.Builder (copyByteString)@@ -285,7 +289,19 @@ -- eventually be changed to be the same as 'H.withManager' as -- soon as this bug is fixed. withWorkaroundManager :: (MonadIO m, MonadBaseControl IO m) => (H.Manager -> ResourceT m a) -> m a-withWorkaroundManager act = liftIO ioActions >>= flip H.withManagerSettings act . mkSettings+withWorkaroundManager act = workaroundSettings >>= flip H.withManagerSettings act+++-- | Create a new 'H.Manager' with the same workarounds as+-- 'withWorkaroundManager', but does not automatically release+-- it so that you have full control of its life cycle.+newWorkaroundManager :: MonadIO m => m H.Manager+newWorkaroundManager = liftIO . H.newManager =<< workaroundSettings+++-- | Settings needed for 'withWorkaroundManager'.+workaroundSettings :: MonadIO m => m H.ManagerSettings+workaroundSettings = mkSettings `liftM` liftIO ioActions   where     ioActions =       X509.getSystemCertificateStore