diff --git a/insert-ordered-containers.cabal b/insert-ordered-containers.cabal
--- a/insert-ordered-containers.cabal
+++ b/insert-ordered-containers.cabal
@@ -3,7 +3,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           insert-ordered-containers
-version:        0.1.0.0
+version:        0.1.0.1
 synopsis:       Associative containers retating insertion order for traversals.
 description:    Associative containers retating insertion order for traversals.
 category:       Web
@@ -29,7 +29,7 @@
       src
   ghc-options: -Wall
   build-depends:
-      base                  >=4.7      && <4.9
+      base                  >=4.7      && <4.10
     , aeson                 >=0.8.0.2  && <0.12
     , base-compat           >=0.6.0    && <0.10
     , hashable              >=1.2.3.3  && <1.4
@@ -50,7 +50,7 @@
       test
   ghc-options: -Wall
   build-depends:
-      base                  >=4.7      && <4.9
+      base                  >=4.7      && <4.10
     , aeson                 >=0.8.0.2  && <0.12
     , base-compat           >=0.6.0    && <0.10
     , hashable              >=1.2.3.3  && <1.4
diff --git a/src/Data/HashMap/Strict/InsOrd.hs b/src/Data/HashMap/Strict/InsOrd.hs
--- a/src/Data/HashMap/Strict/InsOrd.hs
+++ b/src/Data/HashMap/Strict/InsOrd.hs
@@ -108,8 +108,6 @@
 import           Data.HashMap.Strict (HashMap)
 import qualified Data.HashMap.Strict as HashMap
 
-import Debug.Trace
-
 -------------------------------------------------------------------------------
 -- Strict Pair Int a
 -------------------------------------------------------------------------------
@@ -232,13 +230,13 @@
 instance ToJSONKey Text where
     toJSONKey = id
 
-instance (ToJSONKey k, ToJSON v, Show k, Show v) => ToJSON (InsOrdHashMap k v) where
+instance (ToJSONKey k, ToJSON v) => ToJSON (InsOrdHashMap k v) where
     toJSON = object . fmap f . toList
       where
-        f (k, v) = traceShow "foo" $ toJSONKey k .= v
+        f (k, v) = toJSONKey k .= v
 
 #if MIN_VERSION_aeson(0,10,0)
-    toEncoding = pairs . mconcat . fmap f . traceShowId . toList
+    toEncoding = pairs . mconcat . fmap f . toList
       where
         f (k, v) = toJSONKey k .= v
 #endif