Non-logging squeeze

2015-09-25 14:55:15 +01:00 · 2015-09-25 14:55:15 +01:00 · accbf6de7f
parent 39b691d19c
commit accbf6de7f
1 changed files with 1 additions and 0 deletions
--- a/cpdf.ml
+++ b/cpdf.ml
@ -245,6 +245,7 @@ let squeeze ?logto pdf =
  let log x =
    match logto with
      None -> print_string x; flush stdout
+    | Some "nolog" -> ()
    | Some s ->
        let fh = open_out_gen [Open_wronly; Open_creat] 0o666 s in
          seek_out fh (out_channel_length fh);