Fix bug that allowed for in links to be used as out links

src/Dodge/Floor.hs

@@ -8,7 +8,6 @@ import Dodge.Data
 import Dodge.LockAndKey
 import Dodge.Creature.State.Data
 import Dodge.Room
-import Dodge.Room
 import Dodge.Placement.Instance.Button
 import Dodge.Tree
 import Dodge.Annotation
@@ -37,8 +36,7 @@ initialAnoTree :: RandomGen g => Tree [Annotation g]
 initialAnoTree = padSucWithCorridors $ treeFromTrunk 
     [[AnoApplyInt 0 startRoom]
     , [PassthroughLockKeyLists 2 lockRoomKeyItems itemRooms]
-    , [AnoApplyInt 2 room2]
-    , [AnoApplyInt 1 lasSensorTurretTest]
+    --, [AnoApplyInt 1 lasSensorTurretTest]
 --    ,[ChainAnos 
 --        [[SetLabel 0 $ return $ roomRectAutoLinks 200 200 
 --            & rmExtPmnt ?~ triggerSwitchSPicLight (drawSwitchWire red red)
@@ -49,12 +47,12 @@ initialAnoTree = padSucWithCorridors $ treeFromTrunk
 --        ]
 --     ]
 --    ,[SpecificRoom $ return $ connectRoom lasTunnel ]
---    ,[SpecificRoom $ fmap connectRoom slowDoorRoom ]
---    ,[Corridor]
---    ,[Corridor]
---    ,[SpecificRoom $ fmap connectRoom roomCCrits]
---    ,[AirlockAno]
---    ,[Corridor]
+    ,[SpecificRoom $ fmap singleUseAll slowDoorRoom ]
+    ,[Corridor]
+    ,[Corridor]
+    ,[SpecificRoom $ fmap singleUseAll roomCCrits]
+    ,[AirlockAno]
+    ,[Corridor]
 ------    ,[SpecificRoom roomCCrits]
 ------    ,[Corridor]
 ------    ,[SpecificRoom . pure . pure . UseAll $ roomGlassOctogon 400