Cleanup

2022-05-20 21:47:18 +01:00
parent da302aad0c
commit 61fe9b7df4
11 changed files with 36 additions and 30 deletions
@@ -45,11 +45,12 @@ sensorRoom senseType n = do
 sensorRoomRunPast :: RandomGen g => DamageType -> Int -> State g (LabSubCompTree Room)
 sensorRoomRunPast dt n = do
    t <- sensorRoom dt n
-    (return $ applyToSubforest [0] (++
+    return (applyToSubforest [0] (++
        [treeFromPost [PassDown $ door & rmConnectsTo .~ S.member InLink
            & rmName .~ "test"
        ] (UseLabel 0 corridor)]
-        ) t ) <&> (,TreeSubLabelling "sensorRoomRunPast" Nothing)
+        ) t 
+        ,TreeSubLabelling "sensorRoomRunPast" Nothing)
        --[return $ UseLabel 0 $ door & rmConnectsTo .~ S.member InLink]

 sensAboveDoor :: DamageType -> Float -> PlacementSpot -> Placement