diff options
Diffstat (limited to 'src/Data/ByteString/Base32.hs')
-rw-r--r-- | src/Data/ByteString/Base32.hs | 4 |
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. |
60 | decode :: Base32 -> ByteString | 60 | decode :: Base32 -> Either String ByteString |
61 | decode = pack5 decTable | 61 | decode = 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. |
65 | decodeLenient :: Base32 -> ByteString | 65 | decodeLenient :: Base32 -> Either String ByteString |
66 | decodeLenient = pack5Lenient decTable \ No newline at end of file | 66 | decodeLenient = pack5Lenient decTable \ No newline at end of file |