Cleanup room moduling

src/Dodge/Layout/Tree/Annotate.hs

@@ -4,18 +4,7 @@ import Dodge.Data
 import Dodge.RandomHelp
 import Dodge.Layout.Tree.Polymorphic
 import Dodge.Layout.Tree.Either
-import Dodge.Room.Procedural
-import Dodge.Room.Branch
-import Dodge.Room.RoadBlock
-import Dodge.Room.Door
-import Dodge.Room.Boss
-import Dodge.Room.Treasure
-import Dodge.Room.Link
-import Dodge.Room.Data
-import Dodge.Room.Airlock
-import Dodge.Room.Start
 import Dodge.Room
-import Dodge.Room.Teleport
 
 import Data.Tree
 import Control.Monad.State
@@ -27,7 +16,6 @@ data Annotation g
     | Key  Int
     | Corridor
     | CorridorDebug
-    | DoorAno
     | SwitchDoorAno
     | DoorNumAno Int
     | AirlockAno
@@ -76,7 +64,7 @@ anoToRoomTree anos = case anos of
         anoToRoomTree a
     [Corridor] -> pure . Right <$> randomiseOutLinks corridor
     [CorridorDebug] -> pure . Right <$> randomiseOutLinks corridorDebug
-    [DoorAno] -> roomThenCorridor door
+--    [DoorAno] -> roomThenCorridor door
     [AirlockAno] -> airlock >>=  roomThenCorridor
     [FirstWeapon] -> do
         branchWP <- branchRectWith weaponRoom