Restored old behavior of sinkBody, see brendanhay#466

reactormonk · May 30, 2018 · 9cf94c5 · 9cf94c5
1 parent 9750d3d
commit 9cf94c5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/amazonka/src/Network/AWS/Internal/Body.hs b/amazonka/src/Network/AWS/Internal/Body.hs
@@ -26,8 +26,8 @@ getFileSize :: MonadIO m => FilePath -> m Integer
 getFileSize path = liftIO (withBinaryFile path ReadMode hFileSize)
 
 -- | Connect a 'Sink' to a response stream.
-sinkBody :: MonadIO m => RsBody -> ConduitM ByteString Void (ResourceT IO) a -> m a
-sinkBody (RsBody body) sink = liftIO $ runConduitRes $ body .| sink
+sinkBody :: (MonadResource m, MonadIO m) => RsBody -> ConduitM ByteString Void (ResourceT IO) a -> m a
+sinkBody (RsBody body) sink = liftResourceT $ runConduit $ body .| sink
 
 -- | Construct a 'HashedBody' from a 'FilePath', calculating the 'SHA256' hash
 -- and file size.