From abf9442fba5c9f164662fef0d418ae1079e1bb43 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Domen=20Ko=C5=BEar?= <domen@dev.si>
Date: Sun, 10 May 2020 12:00:48 +0200
Subject: [PATCH] debugging

---
 src/Network/AWS/S3/StreamingUpload.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/Network/AWS/S3/StreamingUpload.hs b/src/Network/AWS/S3/StreamingUpload.hs
index c743470..7aaae2a 100644
--- a/src/Network/AWS/S3/StreamingUpload.hs
+++ b/src/Network/AWS/S3/StreamingUpload.hs
@@ -139,10 +139,12 @@ streamUpload mChunkSize multiPartUploadDesc =
                 -> (Int, ByteString)
                 -> m (Maybe CompletedPart)
     multiUpload bucket key upId (partnum, buffer) = do
+      liftIO $ putStrLn $ "part " <> show partnum <> " " <> (show $ BS.length buffer)
       res <- liftAWS $ send $ uploadPart bucket key partnum upId (toBody $ HashedBytes (hash buffer) buffer)
       when (res ^. uprsResponseStatus /= 200) $ 
         fail "Failed to upload piece"
       logStr $ printf "\n**** Uploaded part %d" partnum
+      liftIO $ putStrLn $ "part " <> show partnum <> " done"
       return $ completedPart partnum <$> (res ^. uprsETag)
     
     -- collect all the parts