Use strict-containers for IntMaps

2022-07-21 15:27:00 +01:00
parent 22787abf8f
commit cf5ec4a261
92 changed files with 103 additions and 98 deletions
@@ -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