diff options
| author | Estevan Castilho <tevo@riajuu.net> | 2026-09-26 00:48:26 +0000 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-09-26 00:48:26 +0000 |
| commit | c7b754e96714eeeb9d315ee3de402d73a27d47db (patch) | |
| tree | 274792f6cdb60387e9bd4b5b7508463b4228bc4a /lib/Utilities.ml | |
| parent | b06d16a2eb0846799b3b039dee989cf1cb258b6a (diff) | |
| parent | 0ec1e8a052305f5246d7cd66e11300cd29bc6d64 (diff) | |
| download | RNT-c7b754e96714eeeb9d315ee3de402d73a27d47db.tar.gz RNT-c7b754e96714eeeb9d315ee3de402d73a27d47db.zip | |
Merge branch 'branch-registration'
Diffstat (limited to '')
| -rw-r--r-- | lib/Utilities.ml | 4 | ||||
| -rw-r--r-- | lib/Utilities.mli | 4 |
2 files changed, 8 insertions, 0 deletions
diff --git a/lib/Utilities.ml b/lib/Utilities.ml index 404d8aa..fb5a7b3 100644 --- a/lib/Utilities.ml +++ b/lib/Utilities.ml @@ -104,3 +104,7 @@ module Atomic = struct then Ok atom else mswap atom f end + +module Fun = struct + let ( |.| ) = Fun.compose +end diff --git a/lib/Utilities.mli b/lib/Utilities.mli index 11c4487..2b9591c 100644 --- a/lib/Utilities.mli +++ b/lib/Utilities.mli @@ -34,3 +34,7 @@ module FingerTree : sig val join : string BatFingerTree.t -> string -> string end + +module Fun : sig + val ( |.| ) : ('a -> 'b) -> ('c -> 'a) -> 'c -> 'b +end |