Polymorphise meta tree labels

2022-06-13 15:22:15 +01:00
parent 31e7f4290e
commit 7a07fc97c2
19 changed files with 67 additions and 97 deletions
@@ -18,8 +18,8 @@ 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 $ tToBTree t & mtLabel .~ s
+rToOnward :: Monad m => String -> Tree Room -> m (MetaTree Room String)
+rToOnward s t = return $ tToBTree s t

 cleatOnward :: Room -> Room
 cleatOnward = rmClusterStatus . csLinks .~ S.singleton OnwardCluster