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