Cleanup

2022-06-14 16:13:06 +01:00
parent a20602abdb
commit d0e3500cad
11 changed files with 106 additions and 38 deletions
@@ -20,7 +20,7 @@ annoToRoomTree an = case an of
    AnRoom r -> MTree "SingleRoom" . NodeTree . pure . (rmClusterStatus . csLinks . at OnwardCluster ?~ ())  <$> zoom _1 r <*> return []
    OnwardList ans -> do
        mts <- mapM annoToRoomTree ans
-        return $ foldr1 attachOnward mts
+        return $ foldr1 attachOnward' mts
    IntAnno f -> do 
        (g,i) <- get
        put (g,i+1)