diff options
Diffstat (limited to 'FMark')
-rw-r--r-- | FMark/src/Common/TOCite/RefParse.fs | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/FMark/src/Common/TOCite/RefParse.fs b/FMark/src/Common/TOCite/RefParse.fs index e9af507..e2ffc43 100644 --- a/FMark/src/Common/TOCite/RefParse.fs +++ b/FMark/src/Common/TOCite/RefParse.fs @@ -1,4 +1,5 @@ module RefParse +open ParserHelperFuncs open Types let monthConv m = @@ -203,7 +204,6 @@ let refParser style tLst = dateFormat tl |> fun (x,y) -> refPar' {refData with AccessDate = x} y | _ -> refPar' refData tl - | ENDLINE::ENDLINE::tl -> refData,tl | ENDLINE::tl -> refPar' refData tl | _::tl -> refPar' refData tl | [] -> refData, [] @@ -215,10 +215,17 @@ let refParser style tLst = // parse references with refParser let refParse style tocLst = - let ind = tocLst |> List.tryFindIndex (fun x -> x = ENDLINE) + match tocLst with + | PickoutParagraph (tk,rtok) -> refParser style tk |> fun (a,b) -> a,b,rtok + | _ -> refParser style tocLst |> fun (a,b) -> a,b,[] + + + +(* let ind = tocLst |> List.tryFindIndex (fun x -> x = ENDLINE) match ind with | Some i -> let (h,t) = List.splitAt i tocLst refParser style h |> fun (a,b) -> a,b,t.Tail | None -> refParser style tocLst |> fun (a,b) -> a,b,[] + *)
\ No newline at end of file |