diff --git a/network-api-support.cabal b/network-api-support.cabal
--- a/network-api-support.cabal
+++ b/network-api-support.cabal
@@ -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>
diff --git a/src/Network/Api/Support/Core.hs b/src/Network/Api/Support/Core.hs
--- a/src/Network/Api/Support/Core.hs
+++ b/src/Network/Api/Support/Core.hs
@@ -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
 
diff --git a/src/Network/Api/Support/Request.hs b/src/Network/Api/Support/Request.hs
--- a/src/Network/Api/Support/Request.hs
+++ b/src/Network/Api/Support/Request.hs
@@ -25,6 +25,7 @@
 import Data.Time
 
 import Network.HTTP.Conduit
+import Network.HTTP.Conduit.Internal (insertCookiesIntoRequest)
 
 -- * Request transformers
 
diff --git a/src/Network/Api/Support/Response.hs b/src/Network/Api/Support/Response.hs
--- a/src/Network/Api/Support/Response.hs
+++ b/src/Network/Api/Support/Response.hs
@@ -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)