=== modified file 'ppio.ml'
--- ppio.ml	2019-04-11 16:36:33 +0000
+++ ppio.ml	2019-04-11 14:01:44 +0000
@@ -46,16 +46,6 @@
       printf "exe: %s\n" (pp_string_list exe);
 ;;
 
-let po str = 
-  Out_channel.output_string stdout str;
-  Out_channel.flush stdout;
-;;
-
-let pe str = 
-  Out_channel.output_string stderr str;
-  Out_channel.flush stderr;
-;;
-
 let cmd =
   let open Command.Let_syntax in
   let flag_const value = 
@@ -63,7 +53,7 @@
         | true -> Some value
         | false -> None)
   in
-  Command.basic ~summary:"Pretty print I/O to a spawned command."
+  Command.basic' ~summary:"Pretty print I/O to a spawned command."
   [%map_open
     let hide = flag "-H" ~aliases:["--hide-newlines"] no_arg
       ~doc:"Suppress printing codes of the line-terminating sequence"
@@ -110,7 +100,7 @@
       }
       in
       print_cmd_args args;
-      pe (show_cmd_args args);
+      (* show args; *)
   ]
 ;;