Fixed ProcessHelper.ensureProcessesHaveStopped (fsprojects#389)

palpha · Apr 25, 2014 · b1e7fef · b1e7fef
1 parent f1c6c89
commit b1e7fef
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/app/FakeLib/ProcessHelper.fs b/src/app/FakeLib/ProcessHelper.fs
@@ -448,12 +448,12 @@ let killAllCreatedProcesses() =
 /// ## Parameters
 ///  - `name` - The name of the processes in question.
 ///  - `timeout` - The timespan to time out after.
-let ensureProcessesHaveStopped name timeout = 
+let ensureProcessesHaveStopped name timeout =
     let endTime = DateTime.Now.Add timeout
-    while DateTime.Now <= endTime && (getProcessesByName name <> Seq.empty) do
+    while DateTime.Now <= endTime && not (getProcessesByName name |> Seq.isEmpty) do
         tracefn "Waiting for %s to stop (Timeout: %A)" name endTime
         Thread.Sleep 1000
-    if getProcessesByName name <> Seq.empty then 
+    if not (getProcessesByName name |> Seq.isEmpty) then
         failwithf "The process %s has not stopped (check the logs for errors)" name
 
 /// Execute an external program and return the exit code.