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
@@ -7,7 +7,7 @@ import Dodge.Base.You

 import Data.Maybe
 import Control.Lens
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM

 putItemInInvID :: Int -> Int -> World -> (Maybe Int,World)
 putItemInInvID cid flid w = fromMaybe (Nothing,w) $ do