sort json by default
This commit is contained in:
parent
7846b70c39
commit
d1e5104bcf
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue