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