Move toward better info display during level generation

2021-11-10 23:40:04 +00:00
parent 9aefc11e17
commit a195157e54
13 changed files with 122 additions and 118 deletions
@@ -18,8 +18,8 @@ import System.Random
 import Control.Monad.State
 {- | 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]
-airlock = takeOne [airlockZ]
+airlock = takeOne [airlock0,airlock90,airlockCrystal,airlockZ]
+--airlock = takeOne [airlockZ]
 {- | Straight airlock -}
 airlock0 :: Room
 airlock0 = defaultRoom