diff options
| author | ThunderMikey <mikecyj25@gmail.com> | 2018-03-23 10:16:45 +0000 |
|---|---|---|
| committer | ps-george <george.punter15@imperial.ac.uk> | 2018-03-23 10:16:45 +0000 |
| commit | 87f6d76afb3ed49a2372acb7ea7b22e258a75c0b (patch) | |
| tree | 051e9d1d5c575e597bf20d941a63bb1adba6b97b | |
| parent | ec43fd6f3eb486d4493827793834268aeede9211 (diff) | |
| download | FMark-87f6d76afb3ed49a2372acb7ea7b22e258a75c0b.tar.gz FMark-87f6d76afb3ed49a2372acb7ea7b22e258a75c0b.zip | |
fix reference bug (#169)
| -rw-r--r-- | FMark/src/Common/Parser/ParserHelperFuncs.fs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FMark/src/Common/Parser/ParserHelperFuncs.fs b/FMark/src/Common/Parser/ParserHelperFuncs.fs index 0856a07..c36d85d 100644 --- a/FMark/src/Common/Parser/ParserHelperFuncs.fs +++ b/FMark/src/Common/Parser/ParserHelperFuncs.fs @@ -457,7 +457,7 @@ let parseInLineElements2 refLst toks = | Ok _ -> // ok if found at least one reference in refLst [(Literal idStr, idStr) |> InlineFootnote]@currentLine, rtks | Error msg -> // error if no reference is found in refLst - [msg |> Literal |> FrmtedString], rtks + [msg |> Literal |> FrmtedString]@currentLine, rtks | CITATION str :: rtks -> match findCite str ftLst with | Ok ref -> // ok if found at least one reference in refLst @@ -465,7 +465,7 @@ let parseInLineElements2 refLst toks = | Citation (id, hyperText, _) -> [(hyperText, id) |> InlineCitation]@currentLine, rtks | _ -> failwith "non-citation in citation list" | Error msg -> // error if no reference is found in refLst - [msg |> Literal |> FrmtedString], rtks + [msg |> Literal |> FrmtedString]@currentLine, rtks | _ -> let str = mapTok toks.[0] FrmtedString (Literal str)::currentLine, xOnwards 1 toks |