Cleanup

2021-10-19 15:13:41 +01:00
parent 1f8b4b8565
commit 982c8d81e1
12 changed files with 22 additions and 62 deletions
@@ -85,5 +85,5 @@ initialRoomTree = do
            t'
    shiftExpandTree . expandTreeBy id <$> mapM annoToRoomTree t

-levx :: RandomGen g => State g [Room]
-levx = untilJust initialRoomTree
+levx :: RandomGen g => Int -> State g [Room]
+levx _ = untilJust initialRoomTree