Add laser tunnel lock-key combination

2022-03-09 15:27:35 +00:00
parent a4ec4e4889
commit 3bfebc266b
11 changed files with 104 additions and 75 deletions
@@ -92,7 +92,7 @@ rezBoxThenWeaponRoom = do
 rezBoxThenRoom :: RandomGen g => Room -> State g (SubCompTree Room)
 rezBoxThenRoom r = do
    rcol <- rezColor
-    treeFromTrunk [PassDown $ rezBox rcol,PassDown door] <$> (return $ singleUseAll r)
+    return $ treeFromTrunk [PassDown $ rezBox rcol,PassDown door] $ singleUseAll r

 rezBoxThenRooms :: RandomGen g => SubCompTree Room -> State g (SubCompTree Room)
 rezBoxThenRooms r = do