diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/util.ml | 2 | ||||
| -rw-r--r-- | lib/util.mli | 1 |
2 files changed, 3 insertions, 0 deletions
diff --git a/lib/util.ml b/lib/util.ml index 8410367f96..567c8edb69 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -231,6 +231,8 @@ let list_except_assoc e = in except_e +let list_join_map f l = List.flatten (List.map f l) + (* Arrays *) diff --git a/lib/util.mli b/lib/util.mli index e0de343dfb..e0743627d5 100644 --- a/lib/util.mli +++ b/lib/util.mli @@ -72,6 +72,7 @@ val list_map_append : ('a -> 'b list) -> 'a list -> 'b list val list_map_append2 : ('a -> 'b -> 'c list) -> 'a list -> 'b list -> 'c list val list_share_tails : 'a list -> 'a list -> 'a list * 'a list * 'a list val list_except_assoc : 'a -> ('a * 'b) list -> ('a * 'b) list +val list_join_map : ('a -> 'b list) -> 'a list -> 'b list (*s Arrays. *) |