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
@@ -11,7 +11,7 @@ import qualified IntMapHelp as IM
 updateLampoid :: Creature -> World -> World
 updateLampoid cr w = case cr ^?! crType . lampLSID of
    Nothing -> let i = IM.newKey (_lightSources w)
-        in w & lightSources . at i ?~ lsColPosID lcol (addZ h cpos) i
+        in w & lightSources %~ IM.insert i (lsColPosID lcol (addZ h cpos) i)
    Just i 
        | _crHP cr < 0 -> w
            & explosionFlashAt cpos