From de2f275a9695c0b94b5a585a5e742ff8867a3297 Mon Sep 17 00:00:00 2001 From: Sam Truzjan Date: Fri, 27 Sep 2013 01:32:22 +0400 Subject: Use ty syn in decodeLenient sig --- src/Data/ByteString/Base32.hs | 2 +- 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 -- TODO padding leniency -- | Case-insensitive counterpart of the 'decode'. -decodeLenient :: ByteString -> ByteString +decodeLenient :: Base32 -> ByteString 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] decode :: Base32Hex -> ByteString decode = pack5 decTable -decodeLenient :: ByteString -> ByteString +decodeLenient :: Base32Hex -> ByteString decodeLenient = id \ No newline at end of file -- cgit v1.2.3