Commit before static wall overhaul

src/Dodge/LevelGen/InnerWalls.hs

@@ -5,7 +5,7 @@ module Dodge.LevelGen.InnerWalls
 --import Geometry
 
 --import Control.Lens
---import qualified Data.IntMap as IM
+--import qualified Data.IntMap.Strict as IM
 ------------------------------------------------------------------------------------
 -- idea: create inner walls to draw and to cast shadows
 --createInnerWalls :: IM.IntMap Wall -> IM.IntMap Wall

src/Dodge/LevelGen/Pathing.hs

@@ -7,7 +7,7 @@ import Geometry
 import Control.Lens
 import Data.Maybe
 import Data.List
-import qualified Data.IntMap as IM
+import qualified Data.IntMap.Strict as IM
 import Data.Graph.Inductive hiding ((&))
 --import Data.Graph.Inductive.NodeMap