Move machine update into outside function

src/Dodge/Floor.hs

@@ -45,7 +45,7 @@ initialAnoTree = OnwardList
 --    , AnRoom $ tanksRoom [] []
 --    , AnRoom $ roomCCrits 0
 --    , AnRoom $ return airlock0
-    , AnRoom slowDoorRoom
+--    , AnRoom slowDoorRoom
 --    , AnRoom $ roomCCrits 10
 --    , AnTree firstBreather
 --    , AnTree $ telRoomLev 1 >>= rToOnward "telRoomLev" . pure . cleatOnward
@@ -55,10 +55,10 @@ initialAnoTree = OnwardList
 --extraAnoList =
 ----     ,  (SpecificRoom . return . tToBTree $ treePost [corridor,corridor,cleatOnward corridor])
 --    [ AnRoom $ roomCCrits 10
-    , AnRoom $ roomCCrits 10
-    , AnTree $ tToBTree "spawners" <$> spawnerRoom
-    , AnRoom pistolerRoom
-    , AnRoom doubleCorridorBarrels
+--    , AnRoom $ roomCCrits 10
+--    , AnTree $ tToBTree "spawners" <$> spawnerRoom
+--    , AnRoom pistolerRoom
+--    , AnRoom doubleCorridorBarrels
     , IntAnno $ PassthroughLockKeyLists
         [(sensorRoomRunPast ELECTRICAL, takeOne [CRAFT STATICMODULE,HELD SPARKGUN] )] itemRooms
     , IntAnno $ PassthroughLockKeyLists keyCardRunPastRand itemRooms