Use strict-containers for IntMaps

src/Dodge/LevelGen/Data.hs

@@ -14,7 +14,7 @@ import Control.Lens
 --import Control.Monad.State
 --import System.Random
 import Data.Maybe
---import qualified Data.IntMap.Strict as IM
+--import qualified IntMapHelp as IM
 --import Data.Bifunctor
 
 

src/Dodge/LevelGen/LevelStructure.hs

@@ -12,7 +12,7 @@ import Color
 import LensHelp
 
 --import Data.Tree
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM
 import qualified Data.Map.Strict as M
 --import Control.Lens
 

src/Dodge/LevelGen/Switch.hs

@@ -12,7 +12,7 @@ import ShapePicture
 import Shape
 import Geometry
 
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM
 import Control.Lens
 makeButton 
     :: Color