@@ -73,11 +73,11 @@ pushFlatSibling t (PStack ss ps) = PStack (Node t [] : ss) ps
7373renderTokenForest :: (IsToken t, Show t) => Forest t -> [t]
7474renderTokenForest = mconcat . fmap renderTokenTree
7575
76−renderTokenTree :: (IsToken t, Show t) => Tree t -> [t]
76+renderTokenTree :: (IsToken t) => Tree t -> [t]
7777renderTokenTree = \case
7878 (Node o@(toToken -> Just (TagOpen n _)) ts)
7979 -> [o] <> renderTokenForest ts <> [fromToken $ TagClose n]
8080 (Node t [])
8181 -> [t]
8282 bad
83− -> error $ "renderTokenTree: leaf node with children: " <> show bad
83+ -> error "renderTokenTree: leaf node with children."