Cleanup warnings

src/Dodge/Layout.hs

@@ -1,16 +1,12 @@
 module Dodge.Layout 
-    ( module Dodge.Layout
-    , module Dodge.Layout.Tree
-    )
     where
 import Dodge.Data
 import Dodge.LevelGen
 import Dodge.LevelGen.StaticWalls
-import Dodge.LevelGen.Data
+--import Dodge.LevelGen.Data
 import Dodge.Base
-import Dodge.RandomHelp
+--import Dodge.RandomHelp
 import Dodge.Graph
-import Dodge.Layout.Tree
 import Dodge.Layout.Tree.Polymorphic (applyToRoot)
 import Dodge.Room.Data
 import Dodge.Default
@@ -20,15 +16,10 @@ import Dodge.Room.Link
 import Control.Monad.State
 import Control.Lens
 import System.Random
-import Data.List
-import Data.Maybe
+--import Data.List
+--import Data.Maybe
 import Data.Tree
-import Data.Either
-import Data.Function
-import Data.Graph.Inductive.Graph hiding ((&))
-import Data.Graph.Inductive.Basic
-import Data.Graph.Inductive.PatriciaTree
-import Data.Graph.Inductive.NodeMap
+import Data.Graph.Inductive.Graph (labNodes)
 import qualified Data.Map as M
 import qualified Data.IntMap.Strict as IM
 
@@ -86,7 +77,6 @@ wallsFromTree t =
   where
     assignKeys = IM.fromList . zip [0..] . zipWith f [0..]
     f i (x,y) = defaultWall {_wlLine = (x,y) , _wlID = i}
-    g (x,y) = (x-3855,y - 2613)
 
 wallsFromRooms :: [Room] -> IM.IntMap Wall
 wallsFromRooms =