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

Fix Ocaml 4.13 warning

This commit is contained in:
John Whitington 2021-09-27 16:49:00 +01:00
parent c427f79d8b
commit c79bf14158
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
cpdfcommand.ml
View File

@ -3899,9 +3899,9 @@ let go () =
in in
args.create_objstm <- args.preserve_objstm; args.create_objstm <- args.preserve_objstm;
split_pdf split_pdf
enc args.original_filename args.chunksize args.linearize args.cpdflin enc args.original_filename args.chunksize args.linearize ~cpdflin:args.cpdflin
args.preserve_objstm args.preserve_objstm (*yes--always create if preserving *) ~preserve_objstm:args.preserve_objstm ~create_objstm:args.preserve_objstm (*yes--always create if preserving *)
args.squeeze nobble output_spec pdf ~squeeze:args.squeeze nobble output_spec pdf
| _, Stdout -> error "Can't split to standard output" | _, Stdout -> error "Can't split to standard output"
| _, NoOutputSpecified -> error "Split: No output format specified" | _, NoOutputSpecified -> error "Split: No output format specified"
| _ -> error "Split: bad parameters" | _ -> error "Split: bad parameters"
@ -3929,7 +3929,7 @@ let go () =
in in
args.create_objstm <- args.preserve_objstm; args.create_objstm <- args.preserve_objstm;
split_at_bookmarks split_at_bookmarks
enc args.original_filename args.squeeze nobble level output_spec pdf enc args.original_filename ~squeeze:args.squeeze nobble level output_spec pdf
| Stdout -> error "Can't split to standard output" | Stdout -> error "Can't split to standard output"
| NoOutputSpecified -> error "Split: No output format specified" | NoOutputSpecified -> error "Split: No output format specified"
end end