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

Co-Authored-By: Alex Mason <[email protected]>
axman6 · Mar 25, 2020 · 77a6644 · 77a6644
1 parent b8a2a76
commit 77a6644
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Network/AWS/S3/StreamingUpload.hs b/src/Network/AWS/S3/StreamingUpload.hs
@@ -152,7 +152,8 @@ streamUpload mChunkSize multiPartUploadDesc =
                                   (Either (AbortMultipartUploadResponse, SomeException) CompleteMultipartUploadResponse)
     finishMultiUploadConduit bucket key upId = do
       parts <- sinkList
-      res <- lift $ send $ completeMultipartUpload bucket key upId & cMultipartUpload ?~ set cmuParts (sequenceA (fromList parts)) completedMultipartUpload
+      res <- lift $ send $ completeMultipartUpload bucket key upId
+                         & cMultipartUpload ?~ set cmuParts (sequenceA (fromList parts)) completedMultipartUpload
       return $ Right res
 
     -- in case of an exception, return Left