Use strict-containers for IntMaps

src/Dodge/Wall/Delete.hs

@@ -6,7 +6,7 @@ import Dodge.Data
 import Dodge.Wall.Zone
 
 import Control.Lens
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM
 import qualified Data.IntSet as IS
 
 deleteWallID :: Int -> World -> World

src/Dodge/Wall/Move.hs

@@ -14,7 +14,7 @@ import Dodge.Wall.Zone
 
 import Data.Maybe
 import Control.Lens
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM
 
 moveWallIDUnsafe :: Int -> (Point2,Point2) -> World -> World
 moveWallIDUnsafe wlid wlline w = case w ^? walls . ix wlid of

src/Dodge/Wall/Zone.hs

@@ -3,7 +3,7 @@ module Dodge.Wall.Zone
 import Dodge.Data
 import Dodge.Zone
 
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM
 import Control.Lens
 --import Data.Foldable
 --import Streaming