@@ -5,11 +5,11 @@ module Text.HTML.Tree
55 ( -- * Class
66 IsToken(..)
77 -- * Parsing forests
8− , parseTokenForest
8+ , tokensToForest
99 , ParseTokenForestError(..), PStack(..)
1010 -- * Rendering forests
11− , renderTokenForest
12− , renderTokenTree
11+ , tokensFromForest
12+ , tokensFromTree
1313 ) where
1414
1515import Data.Monoid
@@ -29,8 +29,8 @@ instance IsToken Token where
2929 fromToken = id
3030
3131
32−parseTokenForest :: (IsToken token) => [token] -> Either (ParseTokenForestError token) (Forest token)
33−parseTokenForest = f (PStack [] [])
32+tokensToForest :: (IsToken token) => [token] -> Either (ParseTokenForestError token) (Forest token)
33+tokensToForest = f (PStack [] [])
3434 where
3535 f (PStack ss []) [] = Right (reverse ss)
3636 f pstack [] = Left $ ParseTokenForestErrorBracketMismatch pstack Nothing
@@ -69,7 +69,7 @@ pushFlatSibling :: t -> PStack t -> PStack t
6969pushFlatSibling t (PStack ss ps) = PStack (Node t [] : ss) ps
7070
7171
72−renderTokenForest :: (IsToken t, Show t) => Forest t -> [t]
72+renderTokenForest :: (IsToken t) => Forest t -> [t]
7373renderTokenForest = mconcat . fmap renderTokenTree
7474
7575renderTokenTree :: (IsToken t) => Tree t -> [t]