haskell/minio-hs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

For secure connection do not compute sha256 (#65)

Browse Source
This commit is contained in:
Harshavardhana 2017-10-13 14:43:26 -07:00 committed by Krishnan Parthasarathi
parent d3353bb35a
commit df5cf20fce
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/Network/Minio/API.hs
View File

@ -36,6 +36,7 @@ import qualified Data.Map as Map
import qualified Data.Char as C import qualified Data.Char as C
import qualified Data.Text as T import qualified Data.Text as T
import qualified Data.ByteString as B import qualified Data.ByteString as B
import Network.HTTP.Conduit (Response) import Network.HTTP.Conduit (Response)
import qualified Network.HTTP.Conduit as NC import qualified Network.HTTP.Conduit as NC
import qualified Network.HTTP.Types as HT import qualified Network.HTTP.Types as HT
@ -121,8 +122,13 @@ buildRequest ri = do
(Map.lookup r awsRegionMap) (Map.lookup r awsRegionMap)
else return $ connectHost ci 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, let hostHeader = (hHost, formatBS "{}:{}" [connectHost ci,
show $ connectPort ci]) show $ connectPort ci])