diff options
| author | ThunderMikey <mikecyj25@gmail.com> | 2018-03-23 11:52:59 +0000 |
|---|---|---|
| committer | ThunderMikey <mikecyj25@gmail.com> | 2018-03-23 11:53:04 +0000 |
| commit | 338e6eaf113c00106bb4b140cd98395dee95f078 (patch) | |
| tree | 26e221393f786811db8eb58c4f55f6a32073f754 | |
| parent | 13690c0a3617832a60e99ea90e24a522de2ceeab (diff) | |
| download | FMark-338e6eaf113c00106bb4b140cd98395dee95f078.tar.gz FMark-338e6eaf113c00106bb4b140cd98395dee95f078.zip | |
fix htmlgen
| -rw-r--r-- | FMark/src/Common/HTMLGen/HTMLGen.fs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/FMark/src/Common/HTMLGen/HTMLGen.fs b/FMark/src/Common/HTMLGen/HTMLGen.fs index c15f34a..7411bb8 100644 --- a/FMark/src/Common/HTMLGen/HTMLGen.fs +++ b/FMark/src/Common/HTMLGen/HTMLGen.fs @@ -102,9 +102,9 @@ let rec strList list = /// process header -let strHeader (header,id) = +let strHeader header = match header with - | {HeaderName=line;Level=lv} -> + | {HeaderName=line;Level=lv; RefID=id} -> let tagName = "h" + string(lv) line |> strInlineElements @@ -181,7 +181,7 @@ let strBody pObjs = | CodeBlock (c, l) -> attachHTMLTag ("code", [("language", mapLang l)], true) c | Table rows -> strTable rows | List l -> strList l - | Header (h,s) -> strHeader (h,s) + | Header h -> strHeader h | Footnote (i,s) -> strRef ((string i), s) | Citation (i,_,s) -> strRef (i, s) | ContentTable toc -> strToC toc |