From a5c1dc7dc85a6fc766cdaec507dd0bc10b5ef549 Mon Sep 17 00:00:00 2001 From: Greg Hale Date: Tue, 8 Aug 2023 15:54:02 -0700 Subject: [PATCH] Add another error message case --- src/Pact/Types/Util.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/Pact/Types/Util.hs b/src/Pact/Types/Util.hs index 919b8b5d2..acb46420e 100644 --- a/src/Pact/Types/Util.hs +++ b/src/Pact/Types/Util.hs @@ -348,4 +348,7 @@ base64DowngradeErrorMessage base64DowngradeErrorMessage (L.stripPrefix "invalid padding at offset: " -> Just suffix) = "invalid padding near offset " <> suffix +base64DowngradeErrorMessage + "Base64-encoded bytestring has invalid size" = + "invalid base64 encoding near offset 0" base64DowngradeErrorMessage errMsg = errMsg