git.iko.soy/typeable/html-parse
on master help sign in
Fix unmatched pattern warning (found in last commit).
67450bcMatthias Fischmann
Text/HTML/Parser.hs+8−7
compare with master
unifiedsplit
@@ -300,13 +300,14 @@ renderTokens = mconcat . fmap renderToken
300-- | (Somewhat) canonical string representation of 'Token'.
300-- | (Somewhat) canonical string representation of 'Token'.
301renderToken :: Token -> TL.Text
301renderToken :: Token -> TL.Text
302renderToken = TL.fromStrict . mconcat . \case
302renderToken = TL.fromStrict . mconcat . \case
303− (TagOpen n []) -> ["<", n, ">"]
303+ (TagOpen n []) -> ["<", n, ">"]
304+ (TagOpen n attrs) -> ["<", n, " ", renderAttrs attrs, ">"]
304− (TagOpen n attrs) -> ["<", n, " ", renderAttrs attrs, ">"]
305+ (TagSelfClose n attrs) -> ["<", n, " ", renderAttrs attrs, " />"]
305− (TagClose n) -> ["</", n, ">"]
306+ (TagClose n) -> ["</", n, ">"]
306− (ContentChar c) -> [T.singleton c]
307+ (ContentChar c) -> [T.singleton c]
307− (ContentText t) -> [t]
308+ (ContentText t) -> [t]
308− (Comment builder) -> ["<!--", TL.toStrict $ B.toLazyText builder, "-->"]
309+ (Comment builder) -> ["<!--", TL.toStrict $ B.toLazyText builder, "-->"]
309− (Doctype t) -> ["<!DOCTYPE", t, ">"]
310+ (Doctype t) -> ["<!DOCTYPE", t, ">"]
310
311
311-- | See 'renderAttr'.
312-- | See 'renderAttr'.
312renderAttrs :: [Attr] -> Text
313renderAttrs :: [Attr] -> Text