diff options
| author | Sam Truzjan <pxqr.sta@gmail.com> | 2013-09-27 01:32:22 +0400 |
|---|---|---|
| committer | Sam Truzjan <pxqr.sta@gmail.com> | 2013-09-27 01:32:22 +0400 |
| commit | de2f275a9695c0b94b5a585a5e742ff8867a3297 (patch) | |
| tree | 1156945d94bdad9d6babcfdbefe8ea2d460813c1 | |
| parent | fbfafcf77635f2174d1006af7452d7a7b7cf446e (diff) | |
Use ty syn in decodeLenient sig
| -rw-r--r-- | src/Data/ByteString/Base32.hs | 2 | ||||
| -rw-r--r-- | src/Data/ByteString/Base32/Hex.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/Data/ByteString/Base32.hs b/src/Data/ByteString/Base32.hs index 89d6e2c..f35210f 100644 --- a/src/Data/ByteString/Base32.hs +++ b/src/Data/ByteString/Base32.hs | |||
| @@ -77,5 +77,5 @@ decW5Lenient = decCharLenient . w2c | |||
| 77 | 77 | ||
| 78 | -- TODO padding leniency | 78 | -- TODO padding leniency |
| 79 | -- | Case-insensitive counterpart of the 'decode'. | 79 | -- | Case-insensitive counterpart of the 'decode'. |
| 80 | decodeLenient :: ByteString -> ByteString | 80 | decodeLenient :: Base32 -> ByteString |
| 81 | decodeLenient = id -- pack5 nullPtr decW5Lenient \ No newline at end of file | 81 | decodeLenient = id -- pack5 nullPtr decW5Lenient \ No newline at end of file |
diff --git a/src/Data/ByteString/Base32/Hex.hs b/src/Data/ByteString/Base32/Hex.hs index 0708eeb..24655b7 100644 --- a/src/Data/ByteString/Base32/Hex.hs +++ b/src/Data/ByteString/Base32/Hex.hs | |||
| @@ -56,5 +56,5 @@ decTable = BS.pack $ L.map decW5 [minBound .. maxBound] | |||
| 56 | decode :: Base32Hex -> ByteString | 56 | decode :: Base32Hex -> ByteString |
| 57 | decode = pack5 decTable | 57 | decode = pack5 decTable |
| 58 | 58 | ||
| 59 | decodeLenient :: ByteString -> ByteString | 59 | decodeLenient :: Base32Hex -> ByteString |
| 60 | decodeLenient = id \ No newline at end of file | 60 | decodeLenient = id \ No newline at end of file |