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

fix build

Browse Source
This commit is contained in:
Sarah Vaupel 2024-01-18 04:25:54 +01:00
parent 3dcb276521
commit fafc203e1b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Network/Minio/Sign/V4.hs
View File

@ -200,8 +200,8 @@ credentialScope sp =
let region = fromMaybe "" $ spRegion sp let region = fromMaybe "" $ spRegion sp
in B.intercalate in B.intercalate
"/" "/"
[ TE.encodeUtf8 $ Time.formatTime Time.defaultTimeLocale "%Y%m%d" $ spTimeStamp sp, [ encodeUtf8 $ Time.formatTime Time.defaultTimeLocale "%Y%m%d" $ spTimeStamp sp,
TE.encodeUtf8 region, encodeUtf8 region,
toByteString $ spService sp, toByteString $ spService sp,
"aws4_request" "aws4_request"
] ]