Permalink
Browse files

http-conduit 1.9.0

  • Loading branch information...
1 parent 6e65848 commit 4e4e0b019a80f7b904b98e8db8bb7dcb27230fca @snoyberg snoyberg committed Feb 21, 2013
Showing with 8 additions and 3 deletions.
  1. +7 −2 Aws/Core.hs
  2. +1 −1 aws.cabal
View
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP #-}
module Aws.Core
( -- * Logging
Loggable(..)
@@ -371,7 +372,11 @@ queryToHttpRequest SignedQuery{..}
Nothing -> HTTP.RequestBodyBuilder 0 mempty
Just x -> x
, HTTP.decompress = HTTP.alwaysDecompress
+#if MIN_VERSION_http_conduit(1, 9, 0)
+ , HTTP.checkStatus = \_ _ _ -> Nothing
+#else
, HTTP.checkStatus = \_ _ -> Nothing
+#endif
}
where contentType = case sqMethod of
PostQuery -> Just "application/x-www-form-urlencoded; charset=utf-8"
@@ -619,8 +624,8 @@ xmlCursorConsumer ::
=> (Cu.Cursor -> Response m a)
-> IORef m
-> HTTPResponseConsumer a
-xmlCursorConsumer parse metadataRef (HTTP.Response { HTTP.responseBody = source })
- = do doc <- source $$+- XML.sinkDoc XML.def
+xmlCursorConsumer parse metadataRef res
+ = do doc <- HTTP.responseBody res $$+- XML.sinkDoc XML.def
let cursor = Cu.fromDocument doc
let Response metadata x = parse cursor
liftIO $ tellMetadataRef metadataRef metadata
View
@@ -81,7 +81,7 @@ Library
directory >= 1.0 && < 1.3,
failure >= 0.2.0.1 && < 0.3,
filepath >= 1.1 && < 1.4,
- http-conduit >= 1.6 && < 1.9,
+ http-conduit >= 1.6 && < 1.10,
http-types >= 0.7 && < 0.9,
lifted-base >= 0.1 && < 0.3,
monad-control >= 0.3,

0 comments on commit 4e4e0b0

Please sign in to comment.