Use strict-containers for IntMaps

src/IntMapHelp.hs

@@ -1,5 +1,6 @@
+{-# OPTIONS_GHC -Wno-unused-imports #-}
 module IntMapHelp
-    ( module Data.IntMap.Strict
+    ( module Data.Strict.IntMap
     , newKey
     , insertNewKey
     , insertWithNewKeys
@@ -9,7 +10,8 @@ module IntMapHelp
     ) where
 import LensHelp
 --import Data.List hiding (foldr,insert)
-import Data.IntMap.Strict
+import Data.Strict.IntMap
+import Data.Strict.Containers.Lens
 {- | Find a key value one higher than any key in the map, or zero if the map is
  - empty -}
 newKey :: IntMap a -> Int