Cleanup

src/Dodge/Room/LasTurret.hs

@@ -76,9 +76,9 @@ keyCardRoomRunPast keyid rmid = do
     cenroom <- shuffleLinks $ keyCardAnalyserByDoor keyid rmid $ roomNgon 6 200
     let doorroom = triggerDoorRoom rmid
     return (toOnward "keyCardRoomRunPast",
-        treeFromTrunk [door] $ Node (cenroom) 
+        treeFromTrunk [door] $ Node cenroom
         [ treeFromPost [doorroom] (useAll door)
-        , treeFromPost [door]     (useLabel 0 corridor)
+        , treeFromPost [door]     (useLabel rmid corridor)
         ])
 
 keyCardAnalyserByDoor :: Int -> Int -> Room -> Room
@@ -124,12 +124,11 @@ lasCenSensEdge :: RandomGen g => Int -> State g (LabTree Room)
 lasCenSensEdge n = do
     cenroom <- shuffleLinks $ lightSensByDoor n cenLasTur
     let doorroom = triggerDoorRoom n
-    return (toOnward "lasCenSensEdge"
-        , treeFromTrunk [ door] $ Node ( cenroom) 
+    rToOnward "lasCenSensEdge"
+        $ treeFromTrunk [ door] $ Node cenroom
         [ treeFromPost [ doorroom] (useAll door)
         , treeFromPost [ door]     (useLabel 0 corridor)
         ]
-        )
 
 lasTunnel :: RandomGen g => Float -> State g Room
 lasTunnel y = do
@@ -171,9 +170,7 @@ lasTunnelRunPast y = do
     r <- lasTunnel y
     r1 <- takeOne [door,corridor]
     r2 <- takeOne [door,corridor]
-    return (toOnward "lasTunnelRunPast"
-        , Node ( r)
+    rToOnward "lasTunnelRunPast" $ Node r
         [ pure $ useAll r1
         , return (useLabel 0 $ r2 & rmConnectsTo .~ S.member InLink)
         ]
-        )