Use strict-containers for IntMaps

src/Dodge/Data/Item.hs

@@ -4,7 +4,6 @@ module Dodge.Data.Item
     ( module Dodge.Data.Item
     , module Dodge.Data.Item.Misc
     ) where
-import Geometry.Data
 import Control.Lens
 import Dodge.Data.Item.Misc
 import Dodge.Data.Item.Consumption
@@ -17,7 +16,7 @@ import Dodge.Combine.Data
 import Dodge.Item.Attachment.Data
 import Color
 
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM
 data Item = Item
     { _itConsumption    :: ItemConsumption
     , _itUse        :: ItemUse

src/Dodge/Data/Zoning.hs

@@ -3,7 +3,7 @@
 module Dodge.Data.Zoning where
 import Geometry.Data
 import Control.Lens
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM
 import StreamingHelp
 
 data Zoning t a = Zoning