From 77a6644397679e5518d2b9415945e749fbfbd84d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Domen=20Ko=C5=BEar?= <domen@enlambda.com>
Date: Wed, 25 Mar 2020 10:02:17 +0100
Subject: [PATCH] Update src/Network/AWS/S3/StreamingUpload.hs

Co-Authored-By: Alex Mason <github@me.axman6.com>
---
 src/Network/AWS/S3/StreamingUpload.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Network/AWS/S3/StreamingUpload.hs b/src/Network/AWS/S3/StreamingUpload.hs
index 98f0136..b1b9742 100644
--- 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