simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 19:25:28 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add CCResult.get_or_failwith

Browse source
This commit is contained in:
Hongchang Wu 2018-10-04 20:53:03 -04:00 • committed by Simon Cruanes
parent 3b1de9a1c8
commit e8617c4f05
2 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/core/CCResult.ml
View file

@ -93,6 +93,15 @@ let get_or e ~default = match e with
| Ok x -> x | Ok x -> x
| Error _ -> default | Error _ -> default
let get_or_failwith = function
| Ok x -> x
| Error msg -> failwith msg
(*$T
get_or_failwith (Ok 1) = 1
try ignore @@ get_or_failwith (Error "e"); false with Failure msg -> msg = "e"
*)
let map_or f e ~default = match e with let map_or f e ~default = match e with
| Ok x -> f x | Ok x -> f x
| Error _ -> default | Error _ -> default

5
src/core/CCResult.mli
View file

@ -84,6 +84,11 @@ val get_exn : ('a, _) t -> 'a
val get_or : ('a, _) t -> default:'a -> 'a val get_or : ('a, _) t -> default:'a -> 'a
(** [get_or e ~default] returns [x] if [e = Ok x], [default] otherwise. *) (** [get_or e ~default] returns [x] if [e = Ok x], [default] otherwise. *)
val get_or_failwith : ('a, string) t -> 'a
(** [get_or_failwith e] returns [x] if [e = Ok x], fails otherwise.
@raise Failure with [msg] if [e = Error msg].
@since NEXT_RELEASE *)
val map_or : ('a -> 'b) -> ('a, 'c) t -> default:'b -> 'b val map_or : ('a -> 'b) -> ('a, 'c) t -> default:'b -> 'b
(** [map_or f e ~default] returns [f x] if [e = Ok x], [default] otherwise. *) (** [map_or f e ~default] returns [f x] if [e = Ok x], [default] otherwise. *)