@@ -27,7 +27,7 @@ import Control.Monad.IO.Class
2727 (liftIO)
2828import Control.Monad.Reader
2929import Control.Monad.STM
30− (atomically)
30+ (STM, atomically)
3131import Control.Monad.Trans.Control
3232 (MonadBaseControl (..))
3333import Control.Monad.Trans.Except
@@ -185,11 +185,11 @@ performRequest req = do
185185 now <- getCurrentTime
186186 bss <- Client.brConsume $ Client.responseBody fRes
187187 let fRes' = fRes { Client.responseBody = BSL.fromChunks bss }
188− mapM_ (updateCookieJar now) $ Client.hrRedirects responses <> [(fReq, fRes')]
188+ mapM_ (atomically . updateCookieJar now) $ Client.hrRedirects responses <> [(fReq, fRes')]
189189 return fRes'
190190 where
191− updateCookieJar :: UTCTime -> (Client.Request, Client.Response BSL.ByteString) -> IO ()
192− updateCookieJar now' (req', res') = atomically $ modifyTVar' cj (fst . Client.updateCookieJar res' req' now')
191+ updateCookieJar :: UTCTime -> (Client.Request, Client.Response BSL.ByteString) -> STM ()
192+ updateCookieJar now' (req', res') = modifyTVar' cj (fst . Client.updateCookieJar res' req' now')
193193
194194 fReq = Client.hrFinalRequest responses
195195 fRes = Client.hrFinalResponse responses