diff options
author | George Punter <gsp14@ic.ac.uk> | 2018-03-22 20:18:48 +0000 |
---|---|---|
committer | George Punter <gsp14@ic.ac.uk> | 2018-03-22 20:18:48 +0000 |
commit | 179585c3c3a97c9f9fae0b1338210cc657d45d56 (patch) | |
tree | 00847fe6ea51c0a87003a0c134c7779eb14a1912 /FMark | |
parent | fa80389655340affca4922f37462f9c2db81753a (diff) | |
download | FMark-179585c3c3a97c9f9fae0b1338210cc657d45d56.tar.gz FMark-179585c3c3a97c9f9fae0b1338210cc657d45d56.zip |
ht typo fix
Diffstat (limited to 'FMark')
-rw-r--r-- | FMark/src/Common/HTMLGen/HTMLGen.fs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/FMark/src/Common/HTMLGen/HTMLGen.fs b/FMark/src/Common/HTMLGen/HTMLGen.fs index 9b10874..b0853aa 100644 --- a/FMark/src/Common/HTMLGen/HTMLGen.fs +++ b/FMark/src/Common/HTMLGen/HTMLGen.fs @@ -31,9 +31,9 @@ and strInlineElements eles = | Picture (alt, url) -> let attrs = [("src", url); ("alt", alt)] attachHTMLTag ("img", attrs, false) "" - | InlineCitation (ht, id) -> // style for inline referencing the footnotes and citations in the end - refPrint false (ht,id) - | InlineFootnote (hr, id) -> refPrint true (ht,id) + // style for inline referencing the footnotes and citations in the end + | InlineCitation (ht, id) -> refPrint false (ht,id) + | InlineFootnote (ht, id) -> refPrint true (ht,id) List.fold convertHtml "" eles /// process Markdown paragraph @@ -182,7 +182,7 @@ let strBody pObjs = | Table rows -> strTable rows | List l -> strList l | Header (h,s) -> strHeader (h,s) - | Footnote (i,s) -> strRef ((string i), s) + | InlineFootnotenote (i,s) -> strRef ((string i), s) | Citation (i,_,s) -> strRef (i, s) | ContentTable toc -> strToC toc | _ -> sprintf "%A is not implemented" pObj |