Add tree structure generation

src/Dodge/Layout/Generate.hs

@@ -0,0 +1,25 @@
+{-|
+Random generation of high level layout of rooms.
+-}
+module Dodge.Layout.Generate
+    where
+import Data.Tree
+import Control.Monad.State
+import System.Random
+
+generateLayout :: State g (Tree RoomProperties)
+generateLayout = undefined
+
+data RoomProperties = RProps
+    { _pickUpLevel  :: [Int]
+    , _pickUps      :: [Int]
+    }
+
+randomTreeStructure :: Int -> State g (Tree ())
+randomTreeStructure i = undefined
+
+treeMaxDepthFromTrunk :: Int -> Int -> State g (Tree ())
+treeMaxDepthFromTrunk nNodes maxDepth = do
+    undefined
+
+