diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/util.ml | 1 | ||||
| -rw-r--r-- | lib/util.mli | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/lib/util.ml b/lib/util.ml index f7be7b0d73..a199aacd23 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -51,6 +51,7 @@ exception Error_in_file of string * (bool * string * loc) * exn let on_fst f (a,b) = (f a,b) let on_snd f (a,b) = (a,f b) +let map_pair f (a,b) = (f a,f b) (* Mapping under pairs *) diff --git a/lib/util.mli b/lib/util.mli index e24df1a315..a2a72453cd 100644 --- a/lib/util.mli +++ b/lib/util.mli @@ -61,6 +61,7 @@ exception Error_in_file of string * (bool * string * loc) * exn val on_fst : ('a -> 'b) -> 'a * 'c -> 'b * 'c val on_snd : ('a -> 'b) -> 'c * 'a -> 'c * 'b +val map_pair : ('a -> 'b) -> 'a * 'a -> 'b * 'b (** Going down pairs *) |