First very-very-very-very-alfa release of a MathQL Interpreter implemented

[helm.git] / helm / ocaml / mathql_interpreter / utility.mli

diff --git a/helm/ocaml/mathql_interpreter/utility.mli b/helm/ocaml/mathql_interpreter/utility.mli
new file mode 100644 (file)
index 0000000..928ea33
--- /dev/null
+++ b/helm/ocaml/mathql_interpreter/utility.mli
@@ -0,0 +1,3 @@
+val pgresult_to_string_list : < get_list : 'a list list; .. > -> 'a list
+val pgresult_to_string : < get_list : 'a list list; .. > -> 'a
+val set_assoc : 'a -> 'b -> ('a * 'b) list -> ('a * 'b) list