From b17b08a3e1a449f2cae662976d75263bbfd24603 Mon Sep 17 00:00:00 2001 From: John Whitington Date: Sun, 23 Apr 2023 21:00:46 +0100 Subject: [PATCH] more --- cpdfcommand.ml | 4 ++-- cpdfsqueeze.ml | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/cpdfcommand.ml b/cpdfcommand.ml index c3c08d2..2d201f2 100644 --- a/cpdfcommand.ml +++ b/cpdfcommand.ml @@ -3164,7 +3164,7 @@ let really_write_pdf ?(encryption = None) ?(is_decompress=false) mk_id pdf outna ~generate_objstm:args.create_objstm ~compress_objstm:(not is_decompress) ~recrypt:(Some best_password) - false None mk_id pdf outname' + None mk_id pdf outname' end else begin @@ -3176,7 +3176,7 @@ let really_write_pdf ?(encryption = None) ?(is_decompress=false) mk_id pdf outna ~preserve_objstm:args.preserve_objstm ~generate_objstm:args.create_objstm ~compress_objstm:(not is_decompress) - false encryption mk_id pdf outname' + encryption mk_id pdf outname' end else soft_error diff --git a/cpdfsqueeze.ml b/cpdfsqueeze.ml index 773c4c7..fb26f24 100644 --- a/cpdfsqueeze.ml +++ b/cpdfsqueeze.ml @@ -5,7 +5,7 @@ open Pdfio let report_pdf_size pdf = Pdf.remove_unreferenced pdf; Pdfwrite.pdf_to_file_options ~preserve_objstm:false ~generate_objstm:false - ~compress_objstm:false false None false pdf "temp.pdf"; + ~compress_objstm:false None false pdf "temp.pdf"; let fh = open_in_bin "temp.pdf" in Printf.printf "Size %i bytes\n" (in_channel_length fh); flush stdout;