blob: e381365fd779e9f94869cfedd79ce464d0281c5a (
plain) (
blame)
1
2
3
4
5
6
7
8
9
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))
|
