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
@@ -14,7 +14,7 @@ import Geometry
 import Picture

 --import Control.Lens
-import qualified Data.IntMap.Strict as IM
+import qualified IntMapHelp as IM
 {- | A passage with a switch that opens forward access while closing backwards access. -}
 airlock :: RandomGen g => State g Room
 airlock = takeOne [airlock0,airlock90,airlockCrystal,airlockZ]