1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
open! Import
type ('a, 'b) t = ('a, 'b) Caml.result =
| Ok of 'a
| Error of 'b
[@@deriving_inline sexp, compare, hash]
let t_of_sexp : type a b.
(Ppx_sexp_conv_lib.Sexp.t -> a) ->
(Ppx_sexp_conv_lib.Sexp.t -> b) -> Ppx_sexp_conv_lib.Sexp.t -> (a, b) t
=
let _tp_loc = "src/result.ml.t" in
fun _of_a ->
fun _of_b ->
function
| Ppx_sexp_conv_lib.Sexp.List ((Ppx_sexp_conv_lib.Sexp.Atom
("ok"|"Ok" as _tag))::sexp_args) as _sexp ->
(match sexp_args with
| v0::[] -> let v0 = _of_a v0 in Ok v0
| _ ->
Ppx_sexp_conv_lib.Conv_error.stag_incorrect_n_args _tp_loc
_tag _sexp)
| Ppx_sexp_conv_lib.Sexp.List ((Ppx_sexp_conv_lib.Sexp.Atom
("error"|"Error" as _tag))::sexp_args) as _sexp ->
(match sexp_args with
| v0::[] -> let v0 = _of_b v0 in Error v0
| _ ->
Ppx_sexp_conv_lib.Conv_error.stag_incorrect_n_args _tp_loc
_tag _sexp)
| Ppx_sexp_conv_lib.Sexp.Atom ("ok"|"Ok") as sexp ->
Ppx_sexp_conv_lib.Conv_error.stag_takes_args _tp_loc sexp
| Ppx_sexp_conv_lib.Sexp.Atom ("error"|"Error") as sexp ->
Ppx_sexp_conv_lib.Conv_error.stag_takes_args _tp_loc sexp
| Ppx_sexp_conv_lib.Sexp.List ((Ppx_sexp_conv_lib.Sexp.List _)::_) as
sexp ->
Ppx_sexp_conv_lib.Conv_error.nested_list_invalid_sum _tp_loc sexp
| Ppx_sexp_conv_lib.Sexp.List [] as sexp ->
Ppx_sexp_conv_lib.Conv_error.empty_list_invalid_sum _tp_loc sexp
| sexp -> Ppx_sexp_conv_lib.Conv_error.unexpected_stag _tp_loc sexp
let sexp_of_t : type a b.
(a -> Ppx_sexp_conv_lib.Sexp.t) ->
(b -> Ppx_sexp_conv_lib.Sexp.t) -> (a, b) t -> Ppx_sexp_conv_lib.Sexp.t
=
fun _of_a ->
fun _of_b ->
function
| Ok v0 ->
let v0 = _of_a v0 in
Ppx_sexp_conv_lib.Sexp.List [Ppx_sexp_conv_lib.Sexp.Atom "Ok"; v0]
| Error v0 ->
let v0 = _of_b v0 in
Ppx_sexp_conv_lib.Sexp.List
[Ppx_sexp_conv_lib.Sexp.Atom "Error"; v0]
let compare :
'a 'b .
('a -> 'a -> int) -> ('b -> 'b -> int) -> ('a, 'b) t -> ('a, 'b) t -> int
=
fun _cmp__a ->
fun _cmp__b ->
fun a__001_ ->
fun b__002_ ->
if Ppx_compare_lib.phys_equal a__001_ b__002_
then 0
else
(match (a__001_, b__002_) with
| (Ok _a__003_, Ok _b__004_) -> _cmp__a _a__003_ _b__004_
| (Ok _, _) -> (-1)
| (_, Ok _) -> 1
| (Error _a__005_, Error _b__006_) -> _cmp__b _a__005_ _b__006_)
let hash_fold_t : type a b.
(Ppx_hash_lib.Std.Hash.state -> a -> Ppx_hash_lib.Std.Hash.state) ->
(Ppx_hash_lib.Std.Hash.state -> b -> Ppx_hash_lib.Std.Hash.state) ->
Ppx_hash_lib.Std.Hash.state -> (a, b) t -> Ppx_hash_lib.Std.Hash.state
=
fun _hash_fold_a ->
fun _hash_fold_b ->
fun hsv ->
fun arg ->
match arg with
| Ok _a0 ->
let hsv = Ppx_hash_lib.Std.Hash.fold_int hsv 0 in
let hsv = hsv in _hash_fold_a hsv _a0
| Error _a0 ->
let hsv = Ppx_hash_lib.Std.Hash.fold_int hsv 1 in
let hsv = hsv in _hash_fold_b hsv _a0
[@@@end]
include Monad.Make2 (struct
type nonrec ('a, 'b) t = ('a,'b) t
let bind x ~f = match x with
| Error _ as x -> x
| Ok x -> f x
let map x ~f = match x with
| Error _ as x -> x
| Ok x -> Ok (f x)
let map = `Custom map
let return x = Ok x
end)
let ignore = ignore_m
let fail x = Error x;;
let failf format = Printf.ksprintf fail format
let map_error t ~f = match t with
| Ok _ as x -> x
| Error x -> Error (f x)
let is_ok = function
| Ok _ -> true
| Error _ -> false
let is_error = function
| Ok _ -> false
| Error _ -> true
let ok = function
| Ok x -> Some x
| Error _ -> None
let error = function
| Ok _ -> None
| Error x -> Some x
let of_option opt ~error =
match opt with
| Some x -> Ok x
| None -> Error error
let iter v ~f = match v with
| Ok x -> f x
| Error _ -> ()
let iter_error v ~f = match v with
| Ok _ -> ()
| Error x -> f x
let ok_fst = function
| Ok x -> `Fst x
| Error x -> `Snd x
let ok_if_true bool ~error =
if bool
then Ok ()
else Error error
let try_with f =
try Ok (f ())
with exn -> Error exn
let ok_unit = Ok ()
let ok_exn = function
| Ok x -> x
| Error exn -> raise exn
let ok_or_failwith = function
| Ok x -> x
| Error str -> failwith str
module Export = struct
type ('ok, 'err) _result =
('ok, 'err) t =
| Ok of 'ok
| Error of 'err
let is_error = is_error
let is_ok = is_ok
end
let combine t1 t2 ~ok ~err =
match t1, t2 with
| Ok _, Error e | Error e, Ok _ -> Error e
| Ok ok1 , Ok ok2 -> Ok (ok ok1 ok2 )
| Error err1, Error err2 -> Error (err err1 err2)
;;
let combine_errors l =
let ok, errs = List1.partition_map l ~f:ok_fst in
match errs with
| [] -> Ok ok
| _ :: _ -> Error errs
;;
let combine_errors_unit l = map (combine_errors l) ~f:(fun (_ : unit list) -> ())