Fixed HTML rendering for horizontal rule

2 weeks ago · 172985131b
parent 3781e67ab1
commit 172985131b
1 changed files with 1 additions and 1 deletions
--- a/src/MdToHTML.hs
+++ b/src/MdToHTML.hs
@ -51,7 +51,7 @@ instance Show MdToken where
  show (Line tokens) = concatMap show tokens
  show Linebreak = "<br>"
  show SingleNewline = " "
-  show HorizontalRule = "---------"
+  show HorizontalRule = "<hr>"
  show (Blockquote tokens) = "<blockquote>" ++ concatMap show tokens ++ "</blockquote>"
  show (UnordList tokens) = "<ul>" ++ concatMap (prepend "<li>" . append "</li>" . show) tokens ++ "</ul>"
  show (OrdList tokens) = "<ol>" ++ concatMap (prepend "<li>" . append "</li>" . show) tokens ++ "</ol>"