diff options
Diffstat (limited to 'lib/util.mli')
-rw-r--r-- | lib/util.mli | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lib/util.mli b/lib/util.mli index 86720fe47..bcb1b6265 100644 --- a/lib/util.mli +++ b/lib/util.mli @@ -89,6 +89,10 @@ val iterate : ('a -> 'a) -> int -> 'a -> 'a val repeat : int -> ('a -> unit) -> 'a -> unit val app_opt : ('a -> 'a) option -> 'a -> 'a +(** [un_opt opt default] returns the content of [opt] if possible and + default otherwise. *) +val un_opt : 'a option -> 'a -> 'a + (** {6 Delayed computations. } *) type 'a delayed = unit -> 'a |