small patch for #109 , with cleanup of BatIO.input enabled by default

ocaml-batteries-team · Oct 28, 2016 · 2b83502 · 2b83502
1 parent 49ea666
commit 2b83502
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/src/batIO.mli b/src/batIO.mli
@@ -736,7 +736,7 @@ val input_channel : ?autoclose:bool -> ?cleanup:bool -> in_channel -> input
 
     @param cleanup If true, the channel
     will be automatically closed when the {!type: input} is closed.
-    Otherwise, you will need to close the channel manually.
+    Otherwise, you will need to close the channel manually. Default is [true].
 *)
 
 val output_channel : ?cleanup:bool -> out_channel -> unit output

diff --git a/src/batInnerIO.ml b/src/batInnerIO.ml
@@ -362,7 +362,7 @@ let placeholder_in =
     in_close = noop;
     in_id    = (-1);
     in_upstream= weak_create 0 }
-let input_channel ?(autoclose=true) ?(cleanup=false) ch =
+let input_channel ?(autoclose=true) ?(cleanup=true) ch =
   let me = ref placeholder_in (*placeholder*)
   in let result =
     create_in