diff options
Diffstat (limited to 'lib/Utilities.ml')
| -rw-r--r-- | lib/Utilities.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lib/Utilities.ml b/lib/Utilities.ml index b7fe364..03d1eea 100644 --- a/lib/Utilities.ml +++ b/lib/Utilities.ml @@ -55,6 +55,7 @@ module List = struct include Generic (ListSequence) + let concat_map f xs = List.map f xs |> sequence |> Stdlib.Result.map List.concat let hd_opt = function x :: _ -> Some x | [] -> None end |