summaryrefslogtreecommitdiff
path: root/src/Data/ByteString/Base32.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Data/ByteString/Base32.hs')
-rw-r--r--src/Data/ByteString/Base32.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Data/ByteString/Base32.hs b/src/Data/ByteString/Base32.hs
index efc5951..79939d1 100644
--- a/src/Data/ByteString/Base32.hs
+++ b/src/Data/ByteString/Base32.hs
@@ -57,10 +57,10 @@ decTable = BS.pack $ L.map decW5 [minBound .. maxBound]
57 57
58-- | Decode a base32 encoded bytestring. This functions is 58-- | Decode a base32 encoded bytestring. This functions is
59-- case-insensitive and do not require correct padding. 59-- case-insensitive and do not require correct padding.
60decode :: Base32 -> ByteString 60decode :: Base32 -> Either String ByteString
61decode = pack5 decTable 61decode = pack5 decTable
62 62
63-- | The same as 'decode' but with additional leniency: decodeLenient 63-- | The same as 'decode' but with additional leniency: decodeLenient
64-- will skip non-alphabet characters. 64-- will skip non-alphabet characters.
65decodeLenient :: Base32 -> ByteString 65decodeLenient :: Base32 -> Either String ByteString
66decodeLenient = pack5Lenient decTable \ No newline at end of file 66decodeLenient = pack5Lenient decTable \ No newline at end of file