1 files changed, 10 insertions, 0 deletions
diff --git a/lib/dml/parser.ml b/lib/dml/parser.ml
new file mode 100644
index 0000000..e381365
--- /dev/null
+++ b/lib/dml/parser.ml
@@ -0,0 +1,10 @@
+module Error = struct
+  open Condition
+
+  let parse_error msg = condition "parse-error" msg empty
+end
+
+let of_sexp sexp =
+  match Ast.statement_of_sexp sexp with
+  | statement -> Ok statement
+  | exception exn -> Error (Error.parse_error (Printexc.to_string exn))