runTreeGenerator :: TreeGenerator [Tree] -> IO ([Tree], [Text])
runTreeGenerator x = fst <$> (runStateT (runWriterT x) (M.fromList []))
runTreeGenerator :: TreeGenerator [Tree] -> IO ([Tree], [Text])
runTreeGenerator x = fst <$> (runStateT (runWriterT x) (M.fromList []))
runTreeGenerator x = fst <$> (runStateT (runWriterT x) (M.fromList []))