Keep up to date with changes in conduit HTTP lib.

bos · Aug 1, 2013 · 0563aac · 0563aac
1 parent deb671e
commit 0563aac
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/app/App.hs b/app/App.hs
@@ -169,7 +169,7 @@ createRequest Args{..} = do
       check (Just "POST") = return "POST"
       check (Just "PUT")  = return "PUT"
       check _      = fatal "only POST or PUT may have a body"
-      req = req0 { E.redirectCount = 0, E.checkStatus = \_ _ -> Nothing }
+      req = req0 { E.redirectCount = 0, E.checkStatus = \_ _ _ -> Nothing }
   case (from_file, literal) of
     (Nothing,Nothing) -> return req { E.method = maybe "GET" B.pack method }
     (Just f,Nothing) -> do

diff --git a/lib/Network/HTTP/LoadTest.hs b/lib/Network/HTTP/LoadTest.hs
@@ -69,7 +69,7 @@ client Config{..} mgr interval = loop 0 []
     issueRequest :: ResourceT IO (Response L.ByteString)
     issueRequest = httpLbs (clear $ fromReq request) mgr
                    `catch` (throwIO . NetworkError)
-      where clear r = r { checkStatus = \_ _ -> Nothing
+      where clear r = r { checkStatus = \_ _ _ -> Nothing
                         , responseTimeout = Nothing
                         }
     timedRequest :: ResourceT IO Event