package devkit

  1. Overview
  2. Docs
Development kit - general purpose library

Install

Dune Dependency

Authors

Maintainers

Sources

devkit-1.3.tbz
sha256=dae965685dceed47ad8e9844f12fe707dafdf2c3bdd46d0431d5b4d1e7754b23
sha512=b94ade804d751db87434042bbaa821fa8e82e233820a76806f910e2da040094b137e88a3579911a1626930912622b064c776ddbcb6991fb7111021ebf6553fdc

doc/src/devkit.core/exn_lwt.ml.html

Source file exn_lwt.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
(**
  Dealing with Lwt exceptions
*)

open Printf

let catch f x = Lwt.try_bind (fun () -> f x) Lwt.return_some (fun _exn -> Lwt.return_none)
let map f x = Lwt.try_bind (fun () -> f x) (fun r -> Lwt.return (`Ok r)) (fun exn -> Lwt.return (`Exn exn))

let fail ?exn fmt =
  let fails s = Lwt.fail_with @@ match exn with None -> s | Some exn -> s ^ " : " ^ Exn.to_string exn in
  ksprintf fails fmt

let invalid_arg fmt = ksprintf Lwt.fail_invalid_arg fmt
OCaml

Innovation. Community. Security.