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

more

This commit is contained in:
John Whitington 2021-10-14 15:55:56 +01:00
parent 65aec369c2
commit e383cd7a03
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cpdfjson.ml
View File

@ -433,9 +433,7 @@ let of_input i =
try try
match i.Pdfio.caml_channel with match i.Pdfio.caml_channel with
| Some ch -> | Some ch ->
let r = pdf_of_json (J.from_channel ch) in pdf_of_json (J.from_channel ch)
Pdfwrite.pdf_to_file r "debug.pdf";
r
| None -> | None ->
let content = Pdfio.string_of_bytes (Pdfio.bytes_of_input i 0 i.Pdfio.in_channel_length) in let content = Pdfio.string_of_bytes (Pdfio.bytes_of_input i 0 i.Pdfio.in_channel_length) in
pdf_of_json (J.from_string content) pdf_of_json (J.from_string content)