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
@@ -12,7 +12,7 @@ import Control.Lens
 import qualified Control.Foldl as L
 import qualified Streaming.Prelude as S
 --import Data.List
--import qualified Data.IntMap.Strict as IM
+--import qualified IntMapHelp as IM
 wallsToDraw
    :: World
    -> ( [((Point2,Point2),Point4)]  ,[((Point2,Point2),Point4)], SPic )