Use strict-containers for IntMaps

src/Dodge/Room/Airlock.hs

@@ -14,7 +14,7 @@ import Geometry
 import Picture
 
 --import Control.Lens
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM
 {- | A passage with a switch that opens forward access while closing backwards access. -}
 airlock :: RandomGen g => State g Room
 airlock = takeOne [airlock0,airlock90,airlockCrystal,airlockZ]

src/Dodge/Room/Door.hs

@@ -10,7 +10,7 @@ import Dodge.Placement.Instance
 import Color
 
 import Data.Maybe
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM
 --import Control.Lens
 
 door :: Room

src/Dodge/Room/LongDoor.hs

@@ -30,7 +30,7 @@ import LensHelp
 import qualified Data.Set as S
 import Data.Maybe
 --import Data.Tree
-import qualified Data.IntMap as IM
+import qualified IntMapHelp as IM
 
 twinSlowDoorRoom 
     :: Float    -- ^ Half width

src/Dodge/Room/Procedural.hs

@@ -34,7 +34,7 @@ import Data.Tile
 import LensHelp
 
 import qualified Data.Set as S
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM
 --import Control.Lens
 -- This will need a cleanup, but it might change a bit first
 {- A simple rectangular room with a light in the center.

src/Dodge/Room/Start.hs

@@ -31,7 +31,7 @@ import LensHelp
 
 --import Data.Maybe
 --import Data.Tree
---import qualified Data.IntMap.Strict as IM
+--import qualified IntMapHelp as IM
 
 powerFakeout' :: RandomGen g => State g (MetaTree Room String)
 powerFakeout' = tToBTree "powerFakeout'" <$> powerFakeout