blob: eae59f9a96adda00db9a868011a4e86325ded6f0 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
module Ordering : sig
type t = Equal | Smaller | Greater
val of_int : int -> t
end
module Result : sig
val ( let* ) : ('a, 'e) result -> ('a -> ('b, 'e) result) -> ('b, 'e) result
val fmap : ('a -> ('b, 'e) result) -> ('a, 'e) result -> ('b, 'e) result
end
module List : sig
val sequence : ('a, 'b) result list -> ('a list, 'b) result
val hd_opt : 'a list -> 'a option
end
module Option : sig
val ( let* ) : 'a option -> ('a -> 'b option) -> 'b option
val fmap : ('a -> 'b option) -> 'a option -> 'b option
end
module Atomic : sig
val swap : 'a Atomic.t -> ('a -> 'a) -> 'a Atomic.t
(* This is silly *)
val mswap : 'a Atomic.t -> ('a -> ('a, 'b) result) -> ('a Atomic.t, 'b) result
end
module FingerTree : sig
val map2 : ('a -> 'b -> 'c) -> 'a BatFingerTree.t -> 'b BatFingerTree.t -> 'c BatFingerTree.t
val zip : 'a BatFingerTree.t -> 'b BatFingerTree.t -> ('a * 'b) BatFingerTree.t
val sequence : ('a, 'b) result BatFingerTree.t -> ('a BatFingerTree.t, 'b) result
val join : string BatFingerTree.t -> string -> string
end
|
