package oenv

  1. Overview
  2. Docs

Source file errors.ml

1
2
3
4
5
6
7
8
9
10
let pp_exn ppf ex = Format.fprintf ppf "%s" @@ Printexc.to_string ex
let equal_exn = ( = )

type t =
  [ `Missing of string
  | `Nested_optional of string
  | `Parse of string * string
  | `Exn of exn
  ]
[@@deriving show, eq]