Improve room clip testing

2021-04-22 17:31:57 +02:00
parent 4c7883697f
commit c740ca0844
3 changed files with 18 additions and 5 deletions
@@ -33,8 +33,16 @@ roomTreex = do
    struct' <- aTreeStrut
    let struct = Node [EndRoom] []
    let t' = padCorridors struct
-        t = treeTrunk [[StartRoom],[OrAno [--[DoorAno],[Corridor],
-                                           [DoorNumAno 0,AirlockAno]] ],[FirstWeapon],[Corridor]] t'
+        t = treeTrunk 
+                [[StartRoom]
+                ,[OrAno [[DoorAno]
+                        ,[Corridor]
+                        ,[DoorNumAno 0,AirlockAno]] 
+                        ]
+                ,[FirstWeapon]
+                ,[Corridor]
+                ] 
+                t'
    fmap (shiftExpandTree . expandTreeBy id) $ mapM annoToRoomTree t

 levx :: RandomGen g => State g [Room]