Source file result.ml

1
2
3
4
5
6
7
8
9
10
11
include struct
  [@@@warning "-33"]
  open Result_compat
  open Pervasives

  type ('a, 'error) t = ('a, 'error) result =
    | Ok    of 'a
    | Error of 'error
end

type ('a, 'error) result = ('a, 'error) t