From 054908440bf9c189d0794245c8f2a62ccb21240b Mon Sep 17 00:00:00 2001
From: Sam T <pxqr.sta@gmail.com>
Date: Fri, 27 Sep 2013 00:12:46 +0400
Subject: Minor changes

---
 src/Data/ByteString/Base32.hs | 6 ++++--
 1 file 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
 import Data.ByteString as BS
 import Data.ByteString.Internal as BS
 import Data.ByteString.Base32.Internal
+import Data.List as L
+
 
 encW5 :: Word5 -> Word8
 encW5 !x
@@ -30,7 +32,7 @@ encW5 !x
 {-# INLINE encW5 #-}
 
 encTable :: EncTable
-encTable = BS.pack $ fmap encW5 [0..31]
+encTable = BS.pack $ L.map encW5 [0..31]
 
 -- | Encode a bytestring into base32 form.
 encode :: ByteString -> ByteString
@@ -48,7 +50,7 @@ decW5 !x
 {-# INLINE decW5 #-}
 
 decTable :: ByteString
-decTable = BS.pack $ fmap decW5 [minBound .. maxBound]
+decTable = BS.pack $ L.map decW5 [minBound .. maxBound]
 
 -- | Decode a base32 encoded bytestring.
 decode :: ByteString -> ByteString
-- 
cgit v1.2.3