b6449cae87
* `lib_stdlib`: basic extended OCaml stdlib and generic data structures
* `lib_data_encoding`: almost independant 'Data_encoding'
* `lib_error_monad`: almost independant 'Error_monad'
* `lib_stdlib_lwt`: extended Lwt library
* `lib_crypto`: all the crypto stuff (hashing, signing, cryptobox).
* `lib_base`:
- basic type definitions (Block_header, Operation, ...)
- a module `TzPervasives` to bind them all and to be the
single module opened everywhere.
In the process, I splitted `Tezos_data` and `Hash` in multiple
submodules, thus removing a lot of `-open`.
The following two modules may not have found their place yet:
- Base58 (currently in `lib_crypto`)
- Cli_entries (currently in `lib_stdlib_lwt`)
28 lines
1.3 KiB
OCaml
28 lines
1.3 KiB
OCaml
(**************************************************************************)
|
|
(* *)
|
|
(* Copyright (c) 2014 - 2017. *)
|
|
(* Dynamic Ledger Solutions, Inc. <contact@tezos.com> *)
|
|
(* *)
|
|
(* All rights reserved. No warranty, explicit or implicit, provided. *)
|
|
(* *)
|
|
(**************************************************************************)
|
|
|
|
(** [Some (f x)] if input is [Some x], or [None] if it's [None] **)
|
|
val map: f:('a -> 'b) -> 'a option -> 'b option
|
|
|
|
(** [(f x)] if input is [Some x], or [None] if it's [None] **)
|
|
val apply: f:('a -> 'b option) -> 'a option -> 'b option
|
|
|
|
(** Call [(f x)] if input is [Some x], noop if it's [None] **)
|
|
val iter: f:('a -> unit) -> 'a option -> unit
|
|
|
|
(** [x] if input is [Some x], default if it's [None] **)
|
|
val unopt: default:'a -> 'a option -> 'a
|
|
|
|
(** [unopt_map f d x] is [y] if [x] is [Some y], [d] if [x] is [None] **)
|
|
val unopt_map: f:('a -> 'b) -> default:'b -> 'a option -> 'b
|
|
|
|
(** First input of form [Some x], or [None] if none **)
|
|
val first_some: 'a option -> 'a option -> 'a option
|
|
|