diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-31 02:27:40 -0300 |
|---|---|---|
| committer | Marcos Magueta <maguetamarcos@gmail.com> | 2026-10-31 02:27:40 -0300 |
| commit | e76cc6f862656a3ada9fa3d4418bd060df937885 (patch) | |
| tree | be96ff723c1d45c79b1df0fbeb1de9fbd974eea4 /lib/Utilities.ml | |
| parent | 1c6c4ef41d97c0696c5c8654e08ffdfe65a18823 (diff) | |
| download | RNT-e76cc6f862656a3ada9fa3d4418bd060df937885.tar.gz RNT-e76cc6f862656a3ada9fa3d4418bd060df937885.zip | |
format and where claude on fol
Diffstat (limited to 'lib/Utilities.ml')
| -rw-r--r-- | lib/Utilities.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lib/Utilities.ml b/lib/Utilities.ml index 0472038..939556e 100644 --- a/lib/Utilities.ml +++ b/lib/Utilities.ml @@ -90,11 +90,10 @@ module FingerTree = struct let filter_map f = BatFingerTree.fold_left (fun acc elem -> - match f elem with None -> acc | Some result -> BatFingerTree.snoc acc result) + match f elem with None -> acc | Some result -> BatFingerTree.snoc acc result ) BatFingerTree.empty let concat xss = BatFingerTree.fold_left BatFingerTree.append BatFingerTree.empty xss - let concat_mapm f xs = BatFingerTree.map f xs |> sequence |> Stdlib.Result.map concat end |