From df5cf20fce01f2406a9b206539ddadea0f236dfb Mon Sep 17 00:00:00 2001
From: Harshavardhana <harsha@minio.io>
Date: Fri, 13 Oct 2017 14:43:26 -0700
Subject: [PATCH] For secure connection do not compute sha256 (#65)

---
 src/Network/Minio/API.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/Network/Minio/API.hs b/src/Network/Minio/API.hs
index 64723e7..c34d3cb 100644
--- a/src/Network/Minio/API.hs
+++ b/src/Network/Minio/API.hs
@@ -36,6 +36,7 @@ import qualified Data.Map as Map
 import qualified Data.Char as C
 import qualified Data.Text as T
 import qualified Data.ByteString as B
+
 import           Network.HTTP.Conduit (Response)
 import qualified Network.HTTP.Conduit as NC
 import qualified Network.HTTP.Types as HT
@@ -121,8 +122,13 @@ buildRequest ri = do
                    (Map.lookup r awsRegionMap)
               else return $ connectHost ci
 
+  sha256Hash <- if | connectIsSecure ci ->
+                       -- if secure connection
+                       return "UNSIGNED-PAYLOAD"
+
+                   -- otherwise compute sha256
+                   | otherwise -> getPayloadSHA256Hash (riPayload ri)
 
-  sha256Hash <- getPayloadSHA256Hash (riPayload ri)
   let hostHeader = (hHost, formatBS "{}:{}" [connectHost ci,
                                              show $ connectPort ci])