Tweak wall cutting

2021-05-02 23:10:36 +02:00
parent f336d7e3f6
commit f71724ae8b
2 changed files with 14 additions and 3 deletions
@@ -38,7 +38,7 @@ roomTreex :: RandomGen g => State g (Maybe [Room])
 roomTreex = do
    struct' <- aTreeStrut
 --    let struct = treeFromPost [[SpecificRoom $ fmap (pure . Right) pistolerRoom]] [EndRoom]
-    let struct = treeFromPost [[SpecificRoom $ fmap (pure . Right) testRoom]] [EndRoom]
+    let struct = treeFromPost [[Corridor,SpecificRoom $ fmap (pure . Right) testRoom]] [EndRoom]
    let t' = padCorridors struct
        t = treeFromTrunk 
            [[StartRoom]