Update src/Network/AWS/S3/StreamingUpload.hs

Co-Authored-By: Alex Mason <[email protected]>

Author: domenkozar

src/Network/AWS/S3/StreamingUpload.hs

@@ -157,15 +157,12 @@ streamUpload mChunkSize multiPartUploadDesc =
       return $ Right res
 
     -- in case of an exception, return Left
-    cancelMultiUploadConduit :: (MonadUnliftIO m, MonadAWS m, MonadFail m) =>
-                                BucketName
-                             -> ObjectKey 
-                             -> Text 
-                             -> SomeException
-                             -> ConduitT
-                                  i
-                                  Void
-                                  m (Either (AbortMultipartUploadResponse, SomeException) CompleteMultipartUploadResponse)
+    cancelMultiUploadConduit :: (MonadUnliftIO m, MonadAWS m, MonadFail m) 
+      => BucketName
+      -> ObjectKey 
+      -> Text 
+      -> SomeException
+      -> ConduitT I Void m (Either (AbortMultipartUploadResponse, SomeException) CompleteMultipartUploadResponse)
     cancelMultiUploadConduit bucket key upId exc = do
       res <- lift $ send $ abortMultipartUpload bucket key upId
       return $ Left (res, exc)