From fafc203e1bace1998264d1ce4340fb801e877b51 Mon Sep 17 00:00:00 2001
From: Sarah Vaupel <sarah.vaupel@protonmail.com>
Date: Thu, 18 Jan 2024 04:25:54 +0100
Subject: [PATCH] fix build

---
 src/Network/Minio/Sign/V4.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Network/Minio/Sign/V4.hs b/src/Network/Minio/Sign/V4.hs
index a8dc944..dde80f0 100644
--- a/src/Network/Minio/Sign/V4.hs
+++ b/src/Network/Minio/Sign/V4.hs
@@ -200,8 +200,8 @@ credentialScope sp =
   let region = fromMaybe "" $ spRegion sp
    in B.intercalate
         "/"
-        [ TE.encodeUtf8 $ Time.formatTime Time.defaultTimeLocale "%Y%m%d" $ spTimeStamp sp,
-          TE.encodeUtf8 region,
+        [ encodeUtf8 $ Time.formatTime Time.defaultTimeLocale "%Y%m%d" $ spTimeStamp sp,
+          encodeUtf8 region,
           toByteString $ spService sp,
           "aws4_request"
         ]