http-conduit 1.9.0

aristidb · Feb 21, 2013 · 4e4e0b0 · 4e4e0b0
1 parent 6e65848
commit 4e4e0b0
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 3 deletions.
diff --git a/Aws/Core.hs b/Aws/Core.hs
@@ -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

diff --git a/aws.cabal b/aws.cabal
@@ -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,