bistro: added sexp_value file type

pveber · Dec 17, 2018 · 58e7fa2 · 58e7fa2
1 parent d657813
commit 58e7fa2
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/lib/bistro.ml b/lib/bistro.ml
@@ -40,6 +40,11 @@ class type text_file = object
   method encoding : [`text]
 end
 
+class type ['a] sexp_value = object
+  inherit file
+  method ty : 'a
+end
+
 class type binary_file = object
   inherit file
   method encoding : [`binary]

diff --git a/lib/bistro.mli b/lib/bistro.mli
@@ -218,6 +218,11 @@ class type text_file = object
   method encoding : [`text]
 end
 
+class type ['a] sexp_value = object
+  inherit file
+  method ty : 'a
+end
+
 class type binary_file = object
   inherit file
   method encoding : [`binary]