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