Simplified getCookieJar.

haskell · Dec 29, 2017 · a8e0faf · a8e0faf
1 parent 0036c55
commit a8e0faf
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/Network/Wreq/Session.hs b/Network/Wreq/Session.hs
@@ -128,10 +128,7 @@ withSessionControl mj settings act = do
 
 -- | Extract current 'Network.HTTP.Client.CookieJar' from a 'Session'
 getSessionCookieJar :: Session -> IO (Maybe HTTP.CookieJar)
-getSessionCookieJar session =
-  case seshCookies session of
-    Nothing -> return Nothing
-    Just ajar -> Just <$> readIORef ajar
+getSessionCookieJar = traverse readIORef . seshCookies
 
 -- | 'Session'-specific version of 'Network.Wreq.get'.
 get :: Session -> String -> IO (Response L.ByteString)