Cleanup

src/Dodge/Room/Warning.hs

@@ -41,10 +41,7 @@ warningRooms :: RandomGen g => Int -> State g (LabTree Room)
 warningRooms n = do
     rm <- takeOne [roomNgon 8 200, roomRectAutoLinks 200 200]
     cenroom <- shuffleLinks $ addWarningTerminal n rm
-    let doorroom = triggerDoorRoom n
-    return ( toOnward "warningRooms"
-        , treeFromPost [ door, cenroom, doorroom] (useAll door)
-        )
+    rToOnward "warningRooms" $ treePost [ door, cenroom, triggerDoorRoom n, cleatOnward door]
 
 addWarningTerminal :: Int -> Room -> Room
 addWarningTerminal outplid = (rmName .++~ "warningTerm-")