From d016f69818b30b75d186fb14f440b93b0518fc66 Mon Sep 17 00:00:00 2001
From: Emilio Jesus Gallego Arias
Date: Thu, 21 Nov 2019 15:38:39 +0100
Subject: [coq] Untabify the whole ML codebase.

We also remove trailing whitespace.

Script used:

```bash
for i in `find . -name '*.ml' -or -name '*.mli' -or -name '*.mlg'`; do expand -i "$i" | sponge "$i"; sed -e's/[[:space:]]*$//' -i.bak "$i"; done
```
---
 lib/spawn.ml | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'lib/spawn.ml')

diff --git a/lib/spawn.ml b/lib/spawn.ml
index ea0cef54f6..046829802b 100644
--- a/lib/spawn.ml
+++ b/lib/spawn.ml
@@ -209,8 +209,8 @@ let spawn ?(prefer_sock=prefer_sock) ?(env=Unix.environment ())
   p, cout
 
 let rec wait p =
-  (* On windows kill is not reliable, so wait may never return. *) 
-  if Sys.os_type = "Unix" then 
+  (* On windows kill is not reliable, so wait may never return. *)
+  if Sys.os_type = "Unix" then
     try snd (Unix.waitpid [] p.pid)
     with
     | Unix.Unix_error (Unix.EINTR, _, _) -> wait p
@@ -254,8 +254,8 @@ let kill ({ pid = unixpid; oob_req; oob_resp; cin; cout; alive } as p) =
   with e -> prerr_endline ("kill: "^Printexc.to_string e) end
 
 let rec wait p =
-  (* On windows kill is not reliable, so wait may never return. *) 
-  if Sys.os_type = "Unix" then 
+  (* On windows kill is not reliable, so wait may never return. *)
+  if Sys.os_type = "Unix" then
     try snd (Unix.waitpid [] p.pid)
     with
     | Unix.Unix_error (Unix.EINTR, _, _) -> wait p
-- 
cgit v1.2.3