git.iko.soy/typeable/html-parse
on master help sign in
Do not require Show instance merely for error reporting.
0e90fe2Matthias Fischmann
Text/HTML/Tree.hs+2−2
compare with master
unifiedsplit
@@ -73,11 +73,11 @@ pushFlatSibling t (PStack ss ps) = PStack (Node t [] : ss) ps
73renderTokenForest :: (IsToken t, Show t) => Forest t -> [t]
73renderTokenForest :: (IsToken t, Show t) => Forest t -> [t]
74renderTokenForest = mconcat . fmap renderTokenTree
74renderTokenForest = mconcat . fmap renderTokenTree
75
75
76−renderTokenTree :: (IsToken t, Show t) => Tree t -> [t]
76+renderTokenTree :: (IsToken t) => Tree t -> [t]
77renderTokenTree = \case
77renderTokenTree = \case
78 (Node o@(toToken -> Just (TagOpen n _)) ts)
78 (Node o@(toToken -> Just (TagOpen n _)) ts)
79 -> [o] <> renderTokenForest ts <> [fromToken $ TagClose n]
79 -> [o] <> renderTokenForest ts <> [fromToken $ TagClose n]
80 (Node t [])
80 (Node t [])
81 -> [t]
81 -> [t]
82 bad
82 bad
83− -> error $ "renderTokenTree: leaf node with children: " <> show bad
83+ -> error "renderTokenTree: leaf node with children."