Linting, haddocking

2021-04-29 15:31:07 +02:00
parent 750a67ea6e
commit 6a38950501
34 changed files with 506 additions and 441 deletions
@@ -41,7 +41,7 @@ roomTreex = do
    let t' = padCorridors struct
        t = treeFromTrunk 
                [[StartRoom]
-                ,[Corridor]
+                ,[DoorAno]
                ,[SpecificRoom $ fmap (pure . Right) $ randomiseAllLinks =<< centerVaultRoom 1 200 200 50]
                ,[SpecificRoom blockedCorridor]
                ,[OrAno [[DoorAno]