From fb2dc5fca58df520456bc1c2954e7dffba2ee58e Mon Sep 17 00:00:00 2001
From: Kazu Yamamoto <kazu@iij.ad.jp>
Date: Sat, 29 Nov 2014 12:57:23 +0900
Subject: [PATCH] Fixing a race (#405).

---
 elisp/ghc-process.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/elisp/ghc-process.el b/elisp/ghc-process.el
index 97724d0..33203b1 100644
--- a/elisp/ghc-process.el
+++ b/elisp/ghc-process.el
@@ -114,7 +114,7 @@
       (condition-case nil
 	  (let ((inhibit-quit nil))
 	    (while (null ghc-process-rendezvous)
-	      (accept-process-output pro)))
+	      (accept-process-output pro 0.1 nil t)))
 	(quit
 	 (setq ghc-process-running nil))))
     ghc-process-results))