aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Utilities.mli
blob: 2735009f34046a8debca47984d7b8101707d8531 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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
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