Cleanup warnings

src/Dodge/Layout/Generate.hs

@@ -5,7 +5,7 @@ module Dodge.Layout.Generate
     where
 import Data.Tree
 import Control.Monad.State
-import System.Random
+--import System.Random
 
 generateLayout :: State g (Tree RoomProperties)
 generateLayout = undefined
@@ -16,10 +16,10 @@ data RoomProperties = RProps
     }
 
 randomTreeStructure :: Int -> State g (Tree ())
-randomTreeStructure i = undefined
+randomTreeStructure = undefined
 
 treeMaxDepthFromTrunk :: Int -> Int -> State g (Tree ())
-treeMaxDepthFromTrunk nNodes maxDepth = do
+treeMaxDepthFromTrunk = do
     undefined