simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-08 12:15:32 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

feat(CCFun): add (|||>)

Browse source
This commit is contained in:
Nicola Mometto 2024-04-11 14:53:58 +01:00
parent 2a21181580
commit 6a70c57253
2 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
src/core/CCFun.ml
View file

@ -65,6 +65,7 @@ module Infix = struct
let[@inline] ( % ) f g x = f (g x) let[@inline] ( % ) f g x = f (g x)
let ( let@ ) = ( @@ ) let ( let@ ) = ( @@ )
let ( ||> ) (a, b) f = f a b let ( ||> ) (a, b) f = f a b
let ( |||> ) (a, b, c) f = f a b c
end end
include Infix include Infix

3
src/core/CCFun.mli
View file

@ -84,6 +84,9 @@ module Infix : sig
val ( ||> ) : 'a * 'b -> ('a -> 'b -> 'c) -> 'c val ( ||> ) : 'a * 'b -> ('a -> 'b -> 'c) -> 'c
(** [x ||> f] is [f (fst x) (snd x)] *) (** [x ||> f] is [f (fst x) (snd x)] *)
val ( |||> ) : 'a * 'b * 'c -> ('a -> 'b -> 'c -> 'd) -> 'd
(** like [||>] but for tuples of size 3 *)
end end
include module type of Infix include module type of Infix