Cleanup

src/Dodge/Room/LongRoom.hs

@@ -52,7 +52,7 @@ longRoom = do
 longRoomRunPast :: RandomGen g => State g (LabSubCompTree Room)
 longRoomRunPast = do
     r <- longRoom
-    (return $ treeFromTrunk [PassDown door]
+    return (treeFromTrunk [PassDown door]
         (Node (PassDown r)
             [ singleUseAll door
             --, return (UseLabel 0 $ door & rmConnectsTo .~ S.singleton InLink)
@@ -61,4 +61,4 @@ longRoomRunPast = do
                 (UseLabel 0 door)
             ]
         )
-        ) <&> (,TreeSubLabelling "longRoomRunPast" Nothing)
+        ,TreeSubLabelling "longRoomRunPast" Nothing)