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

Co-Authored-By: Alex Mason <[email protected]>
axman6 · Mar 25, 2020 · 8900f25 · 8900f25
1 parent 77a6644
commit 8900f25
Showing 1 changed file with 6 additions and 9 deletions.
diff --git a/src/Network/AWS/S3/StreamingUpload.hs b/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)