fenix
/
cpdf-source
mirror of https://github.com/johnwhitington/cpdf-source.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Removal module J =

This commit is contained in:
John Whitington 2023-06-01 15:07:55 +01:00
parent 5c3906c572
commit 69eb40c918
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
cpdfannot.ml
View File

@ -96,7 +96,6 @@ let get_annotations_json pdf range =
let fastrefnums = hashtable_of_dictionary (combine refnums (indx refnums)) in let fastrefnums = hashtable_of_dictionary (combine refnums (indx refnums)) in
let calculate_pagenumber = Pdfpage.pagenumber_of_target ~fastrefnums pdf in let calculate_pagenumber = Pdfpage.pagenumber_of_target ~fastrefnums pdf in
extra := []; extra := [];
let module J = Cpdfyojson.Safe in
let pages = Pdfpage.pages_of_pagetree pdf in let pages = Pdfpage.pages_of_pagetree pdf in
let pagenums = indx pages in let pagenums = indx pages in
let pairs = combine pages pagenums in let pairs = combine pages pagenums in
@ -137,7 +136,7 @@ let get_annotations_json pdf range =
(Pdf.Dictionary ["/CPDFJSONannotformatversion", Pdf.Integer 1])] (Pdf.Dictionary ["/CPDFJSONannotformatversion", Pdf.Integer 1])]
in in
let json = `List ([header] @ json @ extra) in let json = `List ([header] @ json @ extra) in
Pdfio.bytes_of_string (J.pretty_to_string json) Pdfio.bytes_of_string (Cpdfyojson.Safe.pretty_to_string json)
(* Return annotations *) (* Return annotations *)
let get_annotations encoding pdf = let get_annotations encoding pdf =