Use strict-containers for IntMaps

src/Dodge/Tesla/Arc.hs

@@ -26,11 +26,11 @@ import Dodge.ArcStep
 --import Dodge.Base.Collide
 --import Shape
 
---import qualified Data.IntMap.Strict as IM
+--import qualified IntMapHelp as IM
 --import Data.List (sortOn)
 import MonadHelp
 import Data.Maybe
---import qualified Data.IntMap.Strict as IM
+--import qualified IntMapHelp as IM
 
 aTeslaArcAt :: Color -> [ArcStep] -> Particle
 aTeslaArcAt col thearc = PtTeslaArc

src/Dodge/Tesla/Arc/Default.hs

@@ -8,7 +8,7 @@ import Shape
 
 import Data.Maybe
 import Data.List (sortOn)
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM
 
 defaultArcStep :: RandomGen g => ItemParams -> World -> ArcStep
     -> State g (Maybe ArcStep)