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

Fix getObject to throw error on failure

Browse Source
This commit is contained in:
Krishnan Parthasarathi 2017-01-09 19:09:55 +05:30 committed by Aditya Manthramurthy
parent 2cda5d2e55
commit 0648e4965e
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/Network/Minio/S3API.hs
View File

@ -41,7 +41,11 @@ getObject :: Bucket -> Object -> HT.Query -> [HT.Header]
-> Minio ([HT.Header], C.ResumableSource Minio ByteString)
getObject bucket object queryParams headers = do
resp <- mkStreamRequest reqInfo
return $ (NC.responseHeaders resp, NC.responseBody resp)
let httpStatusCode = HT.statusCode $ NC.responseStatus resp
if httpStatusCode >= 200 && httpStatusCode < 300
then return $ (NC.responseHeaders resp, NC.responseBody resp)
else do errMsg <- NC.lbsResponse resp
throwError $ MErrXml $ LBS.toStrict $ NC.responseBody errMsg
where
reqInfo = requestInfo HT.methodGet (Just bucket) (Just object)
queryParams headers (PayloadSingle "")