Use strict-containers for IntMaps

src/Dodge/Default/Creature.hs

@@ -4,7 +4,7 @@ import Dodge.Creature.Picture
 import Geometry.Data
 import Picture
 
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM
 import qualified Data.Map.Strict as M
 
 import Control.Lens
@@ -71,8 +71,8 @@ defaultInvSize = 20
 defaultPerceptionState :: Perception
 defaultPerceptionState = Perception
     { _cpVigilance      = Lethargic
-    , _cpAttention      = AttentiveTo IM.empty
-    , _cpAwareness      = IM.empty
+    , _cpAttention      = AttentiveTo mempty
+    , _cpAwareness      = mempty
     , _cpVision         = defaultVision
     , _cpAudition       = defaultAudition
     }

src/Dodge/Default/Room.hs

@@ -3,7 +3,7 @@ import Data.Tile
 import Geometry.Data
 --import Dodge.LevelGen.Data
 import Dodge.Data
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM
 import qualified Data.Set as S
 
 defaultRoom :: Room

src/Dodge/Default/World.hs

@@ -12,7 +12,7 @@ import Geometry.Data
 import Geometry.Polygon
 
 import System.Random
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM
 import qualified Data.Map as M
 import qualified Data.Set as S
 import Data.Graph.Inductive.Graph hiding ((&))

src/Dodge/Default/World.hs.orig

@@ -15,7 +15,7 @@ import Geometry.Polygon
 
 import Control.Lens
 import System.Random
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM
 import qualified Data.Map as M
 import qualified Data.Set as S
 import Data.Graph.Inductive.Graph hiding ((&))