sort json by default

This commit is contained in:
John Whitington 2021-10-14 21:29:03 +01:00
parent 7846b70c39
commit d1e5104bcf
1 changed files with 1 additions and 1 deletions

View File

@ -400,7 +400,7 @@ let json_of_pdf
(fun i pdfobj -> (fun i pdfobj ->
ps := (i, json_of_object pdf fcs no_stream_data parse_content pdfobj)::!ps) ps := (i, json_of_object pdf fcs no_stream_data parse_content pdfobj)::!ps)
pdf; pdf;
parameters::trailerdict::!ps parameters::trailerdict::sort compare !ps
in in
let pairs_parsed = let pairs_parsed =
if not parse_content then pairs else if not parse_content then pairs else