Commit before static wall overhaul

src/Dodge/Creature/Action/UseItem.hs

@@ -3,7 +3,7 @@ module Dodge.Creature.Action.UseItem
 import Dodge.Data
 import Dodge.Inventory
 
-import qualified Data.IntMap as IM
+import qualified Data.IntMap.Strict as IM
 import Control.Lens
 import Data.Maybe
 

src/Dodge/Creature/Boid.hs

@@ -8,7 +8,7 @@ import Geometry
 
 import Control.Monad.Reader
 import Control.Lens
-import qualified Data.IntMap as IM
+import qualified Data.IntMap.Strict as IM
 
 interpWith :: Float -> Point2 -> Point2 -> Point2
 interpWith x a b = x *.* a +.+ (1 - x) *.* b

src/Dodge/Creature/ImpulseRat.hs

@@ -6,7 +6,7 @@ import Dodge.Data
 --import Dodge.Creature.State.Data
 import Geometry
 
---import qualified Data.IntMap as IM
+--import qualified Data.IntMap.Strict as IM
 import Control.Lens
 --import Control.Monad.Reader