diff --git a/base16.cabal b/base16.cabal
--- a/base16.cabal
+++ b/base16.cabal
@@ -1,6 +1,6 @@
 cabal-version:      2.0
 name:               base16
-version:            0.1.0.0
+version:            0.1.1
 synopsis:           RFC 4648-compliant Base16 encodings/decodings
 description:
   RFC 4648-compliant Base16 encodings and decodings.
diff --git a/src/Data/ByteString/Base16/Internal/Head.hs b/src/Data/ByteString/Base16/Internal/Head.hs
--- a/src/Data/ByteString/Base16/Internal/Head.hs
+++ b/src/Data/ByteString/Base16/Internal/Head.hs
@@ -11,16 +11,15 @@
 
 #include "MachDeps.h"
 
-import Data.ByteString (ByteString)
 import Data.ByteString.Internal
 import Data.ByteString.Base16.Internal.Tables
-#if WORD_SIZE_IN_BITS >= 32
-import Data.ByteString.Base16.Internal.W32.Loop
-#elif WORD_SIZE_IN_BITS >= 64
-import Data.ByteString.Base16.Internal.W64.Loop
-#else
+-- #if WORD_SIZE_IN_BITS >= 32
+-- import Data.ByteString.Base16.Internal.W32.Loop
+-- #elif WORD_SIZE_IN_BITS >= 64
+-- import Data.ByteString.Base16.Internal.W64.Loop
+-- #else
 import Data.ByteString.Base16.Internal.W16.Loop
-#endif
+-- #endif
 import Data.Text (Text)
 
 import Foreign.Ptr
diff --git a/test/Base16Tests.hs b/test/Base16Tests.hs
--- a/test/Base16Tests.hs
+++ b/test/Base16Tests.hs
@@ -83,6 +83,7 @@
     compare32 n = testCase ("Testing " ++ show n ++ "-sized bytestrings") $ do
       bs <- random n
       B16.encodeBase16' bs @=? Mem.convertToBase Mem.Base16 bs
+
       B16.decodeBase16 (B16.encodeBase16' bs) @=?
         first pack (Mem.convertFromBase @ByteString Mem.Base16 (Mem.convertToBase Mem.Base16 bs))