Random tree structure generation of rooms

src/Dodge/Initialisation.hs

@@ -23,7 +23,7 @@ firstWorld :: IO World
 firstWorld = do
     i <- randomRIO (0,5000)
     putStrLn $ "Random seed for level generation: " ++ show ( i :: Int)
-    return $ generateFromTree lev1 $ initialWorld {_randGen = mkStdGen i}
+    return $ generateFromList levx $ initialWorld {_randGen = mkStdGen i}
 
 initialWorld :: World
 initialWorld = defaultWorld