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
@@ -16,6 +16,11 @@ toOnward s rm
 toOnward' :: Room -> Maybe Room
 toOnward' = fmap snd . toOnward ""

+toLabel' :: Int -> Room -> Maybe Room
+toLabel' i rm
+    | LabelCluster i `elem` rm ^?! rmClusterStatus . csLinks = Just rm
+    | otherwise = Nothing
+
 rToOnward :: Monad m => String -> Tree Room -> m (MetaTree Room)
 rToOnward s t = return $ MTree s (tToBTree t) []