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

feat(CCFun): add (||>)

Browse source
This commit is contained in:
Nicola Mometto 2024-04-11 14:51:55 +01:00
parent 69cd3ca78d
commit 2a21181580
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

@ -64,6 +64,7 @@ module Infix = struct
let ( %> ) = compose let ( %> ) = compose
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
end end
include Infix include Infix

3
src/core/CCFun.mli
View file

@ -81,6 +81,9 @@ module Infix : sig
(** [let@ x = foo in bar] is the equivalent of [foo @@ fun x -> bar]. (** [let@ x = foo in bar] is the equivalent of [foo @@ fun x -> bar].
It can be very useful for resource management, alongside with {!protect}. It can be very useful for resource management, alongside with {!protect}.
@since 3.11 *) @since 3.11 *)
val ( ||> ) : 'a * 'b -> ('a -> 'b -> 'c) -> 'c
(** [x ||> f] is [f (fst x) (snd x)] *)
end end
include module type of Infix include module type of Infix