Use strict-containers for IntMaps

src/Dodge/Base/Collide.hs

@@ -44,7 +44,7 @@ import Dodge.Base.Wall
 import Geometry
 
 import Data.Maybe
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM
 import Control.Lens
 import Control.Monad
 import StreamingHelp

src/Dodge/Base/Item.hs

@@ -5,7 +5,7 @@ module Dodge.Base.Item
 --import Dodge.Base.You
 --import LensHelp
 --
---import qualified Data.IntMap.Strict as IM
+--import qualified IntMapHelp as IM
 
 --selectedObject :: World -> Maybe (Either FloorItem Button)
 --selectedObject w = lookup (_crInvSel ycr) $ zip [n..] $ _closeObjects w