Commit before improving logging of annotations

2022-06-12 17:56:28 +01:00
parent eeec9248bb
commit fa1e3ef2f5
6 changed files with 35 additions and 17 deletions
@@ -63,7 +63,7 @@ sensorRoomRunPast dt n = do
        (++
            [treePost 
                [ door & rmConnectsTo .~ (\s -> S.member InLink s && not (S.member BlockedLink s))
-                , cleatLabel 0 corridor ]
+                , cleatLabel n corridor ]
            ]
        )