network-api-support 0.0.4 → 0.0.7

raw patch · 4 files changed

+4/−4 lines, 4 files

Files

• network-api-support.cabal +1/−1
• src/Network/Api/Support/Core.hs +1/−1
• src/Network/Api/Support/Request.hs +1/−0
• src/Network/Api/Support/Response.hs +1/−2

@@ -1,5 +1,5 @@ Name:               network-api-support-Version:            0.0.4+Version:            0.0.7 License:            BSD3 License-File:       LICENSE Author:             Mark Hibberd <mark@hibberd.id.au>

@@ -44,7 +44,7 @@   -> m b runRequest' settings url transform responder =   do url' <- parseUrl $ unpack url-     let url'' = url' { checkStatus = const . const $ Nothing } -- handle all response codes.+     let url'' = url' { checkStatus = const . const . const $ Nothing } -- handle all response codes.      let req = appEndo transform url''      liftM (responder req) . withCustomManager settings . httpLbs $ req 

@@ -25,6 +25,7 @@ import Data.Time  import Network.HTTP.Conduit+import Network.HTTP.Conduit.Internal (insertCookiesIntoRequest)  -- * Request transformers 

@@ -55,5 +55,4 @@  -- | Lift function handling status code and body into a responder. basicResponder :: (Int -> BL.ByteString -> a) -> Responder m a-basicResponder f _ (Response (Status code _) _ _ body) =-  f code body+basicResponder f _ r = f (statusCode (responseStatus r)) (responseBody r)