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
@@ -17,7 +17,7 @@ import Picture
 --import Data.List (sortOn)
 --import MonadHelp
 import Data.Maybe
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM

 doBeamCombine :: BeamCombineType 
    -> (Point2,(Point2,Point2,Beam),(Point2,Point2,Beam))