diff options
| author | Marcos Magueta <maguetamarcos@gmail.com> | 2026-08-02 23:37:51 -0300 |
|---|---|---|
| committer | Estevan Castilho <tevo@riajuu.net> | 2026-08-23 03:06:53 +0000 |
| commit | 8d59f43f445164e8cc8bd3fe1a23bd04e807a6b3 (patch) | |
| tree | 6a673397f921070d8a86d026380548d5e251a29f /lib/Utilities.ml | |
| parent | b762cb41da4d822416c3ab66940622882745fc0a (diff) | |
| download | RNT-8d59f43f445164e8cc8bd3fe1a23bd04e807a6b3.tar.gz RNT-8d59f43f445164e8cc8bd3fe1a23bd04e807a6b3.zip | |
format
Diffstat (limited to '')
| -rw-r--r-- | lib/Utilities.ml | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lib/Utilities.ml b/lib/Utilities.ml index 9ae0119..f2c96a7 100644 --- a/lib/Utilities.ml +++ b/lib/Utilities.ml @@ -2,11 +2,11 @@ module Result = struct let ( let* ) = Result.bind let fmap f m = Result.bind m f - let sequence ms = List.fold_right - (fun m acc -> - let* acc = acc in - let* m = m in - Ok (m::acc)) - ms - (Ok []) + let sequence ms = + List.fold_right + (fun m acc -> + let* acc = acc in + let* m = m in + Ok (m :: acc) ) + ms (Ok []) end |