Rework annotations

2022-06-12 13:38:23 +01:00
parent 8b4b6de0c0
commit 2ccb26b289
16 changed files with 161 additions and 154 deletions
@@ -56,7 +56,7 @@ sensorRoom senseType n = do
        p' = p +.+ rotateV d (V2 0 (negate 100))
        isclose = dist (_rlPos rl) p' < 30

-sensorRoomRunPast :: RandomGen g => DamageType -> Int -> State g (LabTree Room)
+sensorRoomRunPast :: RandomGen g => DamageType -> Int -> State g (MetaTree Room)
 sensorRoomRunPast dt n = do
    t <- sensorRoom dt n
    rToOnward "sensorRoomRunPast" $ t & applyToSubforest [0]