From 0a6117b20e27f07c7cf7a2ce9beb7effa78c85a9 Mon Sep 17 00:00:00 2001
From: Arseniy Alekseyev <aalekseyev@janestreet.com>
Date: Mon, 18 Apr 2022 20:14:04 +0100
Subject: [PATCH] fix formatting

Signed-off-by: Arseniy Alekseyev <aalekseyev@janestreet.com>
---
 src/spawn.ml | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/src/spawn.ml b/src/spawn.ml
index b029e31..8a766d3 100644
--- a/src/spawn.ml
+++ b/src/spawn.ml
@@ -113,12 +113,13 @@ external spawn_windows :
   -> int = "spawn_windows_byte" "spawn_windows"
 
 let maybe_quote f =
-  if String.contains f ' ' ||
-     String.contains f '\"' ||
-     String.contains f '\t' ||
-     f = ""
-  then Filename.quote f
-  else f
+  if
+    String.contains f ' ' || String.contains f '\"' || String.contains f '\t'
+    || f = ""
+  then
+    Filename.quote f
+  else
+    f
 
 let spawn_windows ~env ~cwd ~prog ~argv ~stdin ~stdout ~stderr ~use_vfork:_
     ~setpgid:_ =