diff options
Diffstat (limited to 'src/Data/ByteString')
-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 704aac6..28481a3 100644 --- a/src/Data/ByteString/Base32.hs +++ b/src/Data/ByteString/Base32.hs | |||
@@ -22,6 +22,8 @@ module Data.ByteString.Base32 | |||
22 | import Data.ByteString as BS | 22 | import Data.ByteString as BS |
23 | import Data.ByteString.Internal as BS | 23 | import Data.ByteString.Internal as BS |
24 | import Data.ByteString.Base32.Internal | 24 | import Data.ByteString.Base32.Internal |
25 | import Data.List as L | ||
26 | |||
25 | 27 | ||
26 | encW5 :: Word5 -> Word8 | 28 | encW5 :: Word5 -> Word8 |
27 | encW5 !x | 29 | encW5 !x |
@@ -30,7 +32,7 @@ encW5 !x | |||
30 | {-# INLINE encW5 #-} | 32 | {-# INLINE encW5 #-} |
31 | 33 | ||
32 | encTable :: EncTable | 34 | encTable :: EncTable |
33 | encTable = BS.pack $ fmap encW5 [0..31] | 35 | encTable = BS.pack $ L.map encW5 [0..31] |
34 | 36 | ||
35 | -- | Encode a bytestring into base32 form. | 37 | -- | Encode a bytestring into base32 form. |
36 | encode :: ByteString -> ByteString | 38 | encode :: ByteString -> ByteString |
@@ -48,7 +50,7 @@ decW5 !x | |||
48 | {-# INLINE decW5 #-} | 50 | {-# INLINE decW5 #-} |
49 | 51 | ||
50 | decTable :: ByteString | 52 | decTable :: ByteString |
51 | decTable = BS.pack $ fmap decW5 [minBound .. maxBound] | 53 | decTable = BS.pack $ L.map decW5 [minBound .. maxBound] |
52 | 54 | ||
53 | -- | Decode a base32 encoded bytestring. | 55 | -- | Decode a base32 encoded bytestring. |
54 | decode :: ByteString -> ByteString | 56 | decode :: ByteString -> ByteString |