diff options
| author | Qieerb <qieerbushe7@gmail.com> | 2018-03-23 12:00:30 +0000 |
|---|---|---|
| committer | Qieerb <qieerbushe7@gmail.com> | 2018-03-23 12:00:30 +0000 |
| commit | 499dc00d742030e57d9091822aa1140b4b45c09d (patch) | |
| tree | 99e47cefc9a0d0c1eb8a938c952c60436ad560f4 | |
| parent | 338e6eaf113c00106bb4b140cd98395dee95f078 (diff) | |
| download | FMark-499dc00d742030e57d9091822aa1140b4b45c09d.tar.gz FMark-499dc00d742030e57d9091822aa1140b4b45c09d.zip | |
line breaks in references
| -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 |