diff options
author | Qieerb <qieerbushe7@gmail.com> | 2018-03-23 13:11:06 +0000 |
---|---|---|
committer | Qieerb <qieerbushe7@gmail.com> | 2018-03-23 13:11:06 +0000 |
commit | bb060bb4615088ddb56e9e28e388db2b8216d1cb (patch) | |
tree | 5a1da24a668f7e25d5d23a2d757507cf3c8ed6df /FMark | |
parent | 4d2ce99145a6dbb4b00ec5c89ce5234790f3c538 (diff) | |
download | FMark-bb060bb4615088ddb56e9e28e388db2b8216d1cb.tar.gz FMark-bb060bb4615088ddb56e9e28e388db2b8216d1cb.zip |
testing + fixes
Diffstat (limited to 'FMark')
-rw-r--r-- | FMark/src/Common/TOCite/RefParse.fs | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/FMark/src/Common/TOCite/RefParse.fs b/FMark/src/Common/TOCite/RefParse.fs index e2ffc43..24dbd93 100644 --- a/FMark/src/Common/TOCite/RefParse.fs +++ b/FMark/src/Common/TOCite/RefParse.fs @@ -218,14 +218,3 @@ let refParse style tocLst = 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 |