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
@@ -26,11 +26,11 @@ import Dodge.ArcStep
 --import Dodge.Base.Collide
 --import Shape

--import qualified Data.IntMap.Strict as IM
+--import qualified IntMapHelp as IM
 --import Data.List (sortOn)
 import MonadHelp
 import Data.Maybe
--import qualified Data.IntMap.Strict as IM
+--import qualified IntMapHelp as IM

 aTeslaArcAt :: Color -> [ArcStep] -> Particle
 aTeslaArcAt col thearc = PtTeslaArc