This commit is contained in:
John Whitington
2023-02-17 15:30:39 +00:00
parent af1f746f96
commit dc2a04d530
5 changed files with 23 additions and 37 deletions

View File

@@ -125,7 +125,7 @@ let postprocess_json pdf objnum_to_serial_map json =
map
(function
| `List [`Int pagenum; `Int serial; jo] ->
let pdfobj = Cpdfjson.object_of_json ~utf8:true jo in
let pdfobj = Cpdfjson.object_of_json jo in
let fixed = postprocess_json_pdf objnum_to_serial_map pdf pdfobj in
`List [`Int pagenum; `Int serial; Cpdfjson.json_of_object ~utf8:true ~clean_strings:true pdf (fun _ -> ()) ~no_stream_data:false ~parse_content:false fixed]
| _ -> assert false)