balsoft/ligo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Lwt_utils: add may

Browse Source
This commit is contained in:
Vincent Bernardoff 2016-11-29 16:39:53 +01:00
parent ec922f6821
commit 199bd93696
2 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/utils/lwt_utils.ml
View File

@ -8,10 +8,13 @@
(**************************************************************************) (**************************************************************************)
module LC = Lwt_condition module LC = Lwt_condition
open Lwt.Infix
open Logging.Core open Logging.Core
let (>>=) = Lwt.(>>=) let may f = function
let (>|=) = Lwt.(>|=) | None -> Lwt.return_unit
| Some x -> f x
let never_ending = fst (Lwt.wait ()) let never_ending = fst (Lwt.wait ())

2
src/utils/lwt_utils.mli
View File

@ -7,6 +7,8 @@
(* *) (* *)
(**************************************************************************) (**************************************************************************)
val may : ('a -> unit Lwt.t) -> 'a option -> unit Lwt.t
val never_ending: 'a Lwt.t val never_ending: 'a Lwt.t
val canceler : unit -> val canceler : unit ->