From a0bf93d618050a70c0718492ffcf6c563183fd16 Mon Sep 17 00:00:00 2001 From: Emily Pillmore Date: Mon, 24 Apr 2023 13:28:34 -0600 Subject: [PATCH] commit to old error msg schema --- src/Data/ByteString/Base64/Internal/W16/Loop.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Data/ByteString/Base64/Internal/W16/Loop.hs b/src/Data/ByteString/Base64/Internal/W16/Loop.hs index b2fe87a..b5dce18 100644 --- a/src/Data/ByteString/Base64/Internal/W16/Loop.hs +++ b/src/Data/ByteString/Base64/Internal/W16/Loop.hs @@ -78,12 +78,12 @@ decodeLoop !dtable !sptr !dptr !end !dfp = go dptr sptr where err :: Ptr Word8 -> IO (Either Text ByteString) err p = return . Left . T.pack - $ "invalid character at offset: " + $ "invalid base64 encoding near offset: " ++ show (p `minusPtr` sptr) padErr :: Ptr Word8 -> IO (Either Text ByteString) padErr p = return . Left . T.pack - $ "invalid padding at offset: " + $ "invalid padding near offset: " ++ show (p `minusPtr` sptr) canonErr :: Ptr Word8 -> IO (Either Text ByteString)