Generalise path generation for arbitrary rooms

src/Dodge/Floor.hs

@@ -43,8 +43,8 @@ import Control.Monad.State
 import Control.Monad.Loops
 import System.Random
 {- | A test level tree. -}
-roomTreex :: RandomGen g => State g (Maybe [Room])
-roomTreex = do
+initialRoomTree :: RandomGen g => State g (Maybe [Room])
+initialRoomTree = do
     let struct = treeFromPost [[Corridor,SpecificRoom $ fmap (pure . Right) randomFourCornerRoom]] [EndRoom]
     let t' = padCorridors struct
         t = treeFromTrunk 
@@ -97,4 +97,4 @@ roomTreex = do
     shiftExpandTree . expandTreeBy id <$> mapM annoToRoomTree t
 
 levx :: RandomGen g => State g [Room]
-levx = untilJust roomTreex
+levx = untilJust initialRoomTree