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
@@ -1,8 +1,8 @@
 module Dodge.Equipment where
 import Dodge.Data

-import qualified Data.IntMap.Strict as IM
-import Data.IntMap.Merge.Strict
+import qualified IntMapHelp as IM
+import Data.Strict.IntMap.Autogen.Merge.Strict

 getCrEquipment :: Creature -> IM.IntMap Item
 getCrEquipment cr = merge dropMissing dropMissing (zipWithMatched $ \_ _ -> id)