Simplify MetaTrees

2022-06-13 10:25:06 +01:00
parent 768b86d393
commit 31e7f4290e
6 changed files with 97 additions and 84 deletions
@@ -19,7 +19,7 @@ toLabel i rm
    | otherwise = Nothing

 rToOnward :: Monad m => String -> Tree Room -> m (MetaTree Room)
-rToOnward s t = return $ MTree s (tToBTree t) []
+rToOnward s t = return $ tToBTree t & mtLabel .~ s

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