Re-export Stdlib.open_flag as {In,Out}_channel.open_flag

ocaml · Aug 9, 2021 · 5a5c669 · 5a5c669
1 parent f1d80db
commit 5a5c669
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 0 deletions.
diff --git a/stdlib/in_channel.mli b/stdlib/in_channel.mli
@@ -1,5 +1,16 @@
 type t = in_channel
 
+type open_flag = Stdlib.open_flag =
+  | Open_rdonly
+  | Open_wronly
+  | Open_append
+  | Open_creat
+  | Open_trunc
+  | Open_excl
+  | Open_binary
+  | Open_text
+  | Open_nonblock
+
 val stdin : t
 
 val open' : string -> t

diff --git a/stdlib/out_channel.mli b/stdlib/out_channel.mli
@@ -1,5 +1,16 @@
 type t = out_channel
 
+type open_flag = Stdlib.open_flag =
+  | Open_rdonly
+  | Open_wronly
+  | Open_append
+  | Open_creat
+  | Open_trunc
+  | Open_excl
+  | Open_binary
+  | Open_text
+  | Open_nonblock
+
 val stdout : t
 
 val stderr : t