Add quicksave

2021-09-13 00:17:45 +01:00
parent 064d43f903
commit 49274064a0
11 changed files with 28 additions and 18 deletions
@@ -71,7 +71,7 @@ initialRoomTree = do
            ,[Corridor]
            ,[Corridor]
 --            --,[SpecificRoom $ pure . Right <$> twinSlowDoorChasers 30]
-            ,[SpecificRoom $ pure . Right <$> pure (twinSlowDoorRoom 30 80 200 40)]
+            ,[SpecificRoom $ pure $ (pure . Right) (twinSlowDoorRoom 30 80 200 40)]
            ,[Corridor]
            ,[DoorAno]
            ,[SpecificRoom $ pure . Right <$> centerVaultExplosiveExit 50]