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