increase sleep

This commit is contained in:
Joey Hess 2014-07-16 16:16:25 -04:00
parent cee75b0104
commit cf384cddfb

View file

@ -57,7 +57,7 @@ unboundDelay time = do
waitForTermination :: IO () waitForTermination :: IO ()
waitForTermination = do waitForTermination = do
#ifdef mingw32_HOST_OS #ifdef mingw32_HOST_OS
forever $ threadDelaySeconds (Seconds 6) forever $ threadDelaySeconds (Seconds 6000)
#else #else
lock <- newEmptyMVar lock <- newEmptyMVar
let check sig = void $ let check sig = void $