HTML reader: haddock comment fix.

git-svn-id: https://pandoc.googlecode.com/svn/trunk@690 788f1e2b-df1e-0410-8736-df70ead52e1b
2007-07-12 08:31:39 +00:00 · 2007-07-12 08:31:39 +00:00 · e962c76f05
commit e962c76f05
parent ba6efb0e48
1 changed files with 1 additions and 1 deletions
--- a/src/Text/Pandoc/Readers/HTML.hs
+++ b/src/Text/Pandoc/Readers/HTML.hs
@ -83,7 +83,7 @@ inlinesTilEnd tag = try (do
  inlines <- manyTill inline (htmlEndTag tag)
  return inlines)

-- | Extract type from a tag:  e.g. 'br' from '<br>'
+-- | Extract type from a tag:  e.g. @br@ from @\<br\>@
 extractTagType :: String -> String
 extractTagType ('<':rest) = 
  let isSpaceOrSlash c = c `elem` "/ \n\t" in