From cf384cddfb625c3d38759ee979771c2b174bd25e Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Wed, 16 Jul 2014 16:16:25 -0400
Subject: [PATCH] increase sleep

---
 Utility/ThreadScheduler.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Utility/ThreadScheduler.hs b/Utility/ThreadScheduler.hs
index 104032c152..e6a81aebd9 100644
--- a/Utility/ThreadScheduler.hs
+++ b/Utility/ThreadScheduler.hs
@@ -57,7 +57,7 @@ unboundDelay time = do
 waitForTermination :: IO ()
 waitForTermination = do
 #ifdef mingw32_HOST_OS
-	forever $ threadDelaySeconds (Seconds 6)
+	forever $ threadDelaySeconds (Seconds 6000)
 #else
 	lock <- newEmptyMVar
 	let check sig = void $