Use strict-containers for IntMaps

src/Dodge/Render/HUD.hs

@@ -21,7 +21,7 @@ import ListHelp
 import qualified Data.Vector as V
 --import Data.Foldable
 import Data.Maybe
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM
 import qualified Data.Map.Strict as M
 --import qualified Data.Set as S
 --import qualified Data.IntSet as IS

src/Dodge/Render/Lights.hs

@@ -6,7 +6,7 @@ import Dodge.Data
 import Geometry
 
 import Data.Maybe
-import qualified Data.IntMap.Lazy as IM
+import qualified IntMapHelp as IM
 
 lightsToRender :: Configuration -> World -> [(Point3,Float,Point3)]
 lightsToRender cfig w = mapMaybe getLS (IM.elems $ _lightSources w) 

src/Dodge/Render/ShapePicture.hs

@@ -39,7 +39,7 @@ import ShortShow
 import Polyhedra
 
 import StreamingHelp
-import qualified Data.IntMap.Strict as IM -- Lazy?
+import qualified IntMapHelp as IM -- Lazy?
 import qualified Data.Map.Strict as M
 import Control.Lens
 import Data.Maybe

src/Dodge/Render/ShapePicture.hs.orig

@@ -28,7 +28,7 @@ import Geometry.ConvexPoly
 --import Dodge.Base.Collide
 
 --import Data.Foldable
-import qualified Data.IntMap.Strict as IM -- Lazy?
+import qualified IntMapHelp as IM -- Lazy?
 import qualified Data.Map.Strict as M
 --import qualified Data.Set as Set
 import Control.Lens

src/Dodge/Render/Walls.hs

@@ -12,7 +12,7 @@ import Control.Lens
 import qualified Control.Foldl as L
 import qualified Streaming.Prelude as S
 --import Data.List
---import qualified Data.IntMap.Strict as IM
+--import qualified IntMapHelp as IM
 wallsToDraw
     :: World
     -> ( [((Point2,Point2),Point4)]  ,[((Point2,Point2),Point4)], SPic )