diff options
-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 |