fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-02-16 11:50:54 +01:00
Code Issues Packages Projects Releases Wiki Activity

Better errors on failed squeeze

Browse Source
This commit is contained in:
John Whitington 2014-10-15 13:29:05 +01:00
parent 953cf0acc5
commit 678a25191d
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
cpdf.ml
View File

@ -249,7 +249,12 @@ let squeeze pdf =
Pdfcodec.flate_level := 9; Pdfcodec.flate_level := 9;
ignore (recompress_pdf pdf) ignore (recompress_pdf pdf)
with with
e -> raise (Pdf.PDFError "Squeeze failed. No output written") e ->
raise
(Pdf.PDFError
(Printf.sprintf
"Squeeze failed. No output written.\n Proximate error was:\n %s"
(Printexc.to_string e)))
type encoding = type encoding =
| Raw | Raw