package grace

  1. Overview
  2. Docs
package grace
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file option.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
open Grace_std0
include Stdlib.Option

let sexp_of_t = Sexplib.Std.sexp_of_option
let t_of_sexp = Sexplib.Std.option_of_sexp

let get ?here t =
  try get t with
  | Invalid_argument msg as exn ->
    (match here with
     | None -> raise exn
     | Some here -> invalid_argf "%s: %s" here msg)
;;