@@ -83,7 +83,7 @@ inlinesTilEnd tag = try (do
83 inlines <- manyTill inline (htmlEndTag tag)
83 inlines <- manyTill inline (htmlEndTag tag)
84 return inlines)
84 return inlines)
86−-- | Extract type from a tag: e.g. 'br' from '<br>'
86+-- | Extract type from a tag: e.g. @br@ from @\<br\>@
87extractTagType :: String -> String
87extractTagType :: String -> String
88extractTagType ('<':rest) =
88extractTagType ('<':rest) =
89 let isSpaceOrSlash c = c `elem` "/ \n\t" in
89 let isSpaceOrSlash c = c `elem` "/ \n\t" in