Cleanup

src/Dodge/Floor.hs

@@ -5,40 +5,24 @@ module Dodge.Floor
     ( levx
     ) where
 import Geometry.Data
---import Picture
 import Dodge.Data
---import Dodge.Room
 import Dodge.Creature.State.Data
---import Dodge.Creature.SwarmCrit
 import Dodge.Room.Procedural
 import Dodge.Room.RoadBlock
 import Dodge.Room.Data
 import Dodge.Room
---import Dodge.Room.Link
---import Dodge.Room.Door
 import Dodge.Room.Branch
 import Dodge.Room.Boss
---import Dodge.Room.Airlock
 import Dodge.Room.LongDoor
 import Dodge.Room.NoNeedWeapon
---import Dodge.Base
---import Dodge.Layout
 import Dodge.Layout.Tree.Polymorphic
 import Dodge.Layout.Tree.Either
---import Dodge.Layout.Tree.GenerateStructure
 import Dodge.Layout.Tree.Annotate
 import Dodge.Layout.Tree.Shift
 import Dodge.Creature
---import Dodge.SoundLogic
---import Dodge.RandomHelp
---import Dodge.LightSources
 import Dodge.LevelGen.Data
---import Dodge.LevelGen.SwarmPlacement
---import Dodge.Item.Weapon
 import Dodge.Item.Weapon.Launcher
 
---import Data.Tree
---import Data.Maybe (fromJust,isNothing)
 import Control.Lens
 import Control.Monad.State
 import Control.Monad.Loops
@@ -52,6 +36,9 @@ initialRoomTree = do
             [[StartRoom]
             ,[Corridor]
             ,[Corridor]
+            ,[AirlockAno]
+            ,[Corridor]
+            ,[Corridor]
 ----            ,[SpecificRoom roomCCrits]
 ----            ,[Corridor]
 ----            ,[Corridor]