@@ -69,13 +69,13 @@ pushFlatSibling :: t -> PStack t -> PStack t
6969pushFlatSibling t (PStack ss ps) = PStack (Node t [] : ss) ps
7070
7171
72−renderTokenForest :: (IsToken t) => Forest t -> [t]
73−renderTokenForest = mconcat . fmap renderTokenTree
72+tokensFromForest :: (IsToken t) => Forest t -> [t]
73+tokensFromForest = mconcat . fmap tokensFromTree
7474
75−renderTokenTree :: (IsToken t) => Tree t -> [t]
76−renderTokenTree (Node o@(toToken -> Just (TagOpen n _)) ts)
77− = [o] <> renderTokenForest ts <> [fromToken $ TagClose n]
78−renderTokenTree (Node t []) =
75+tokensFromTree :: (IsToken t) => Tree t -> [t]
76+tokensFromTree (Node o@(toToken -> Just (TagOpen n _)) ts)
77+ = [o] <> tokensFromForest ts <> [fromToken $ TagClose n]
78+tokensFromTree (Node t [])
7979 = [t]
80−renderTokenTree _
80+tokensFromTree _
8181 = error "renderTokenTree: leaf node with children."