diff options
| author |  Joey Hess <joey@kitenet.net> | 2014-07-16 15:42:12 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-07-16 15:42:12 -0400 |
| commit | 8553b30c98af907fbdac6bec74f80ab097a67b09 (patch) | |
| tree | 4b5902ced4388c68ae6b04efa1fa73d874fb3190 /Utility | |
| parent | f1e2d1733e2441e702303ae22f8f926834d5c410 (diff) | |
Windows: fix crash after 10 minutes
getLine in waitForTermination doesn't work when stdin is closed..
Just loop forever, there was no reason to getLine here I think.
Diffstat (limited to 'Utility')
| -rw-r--r-- | Utility/ThreadScheduler.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/Utility/ThreadScheduler.hs b/Utility/ThreadScheduler.hs index fc026d7e6..104032c15 100644 --- a/Utility/ThreadScheduler.hs +++ b/Utility/ThreadScheduler.hs @@ -57,8 +57,7 @@ unboundDelay time = do waitForTermination :: IO () waitForTermination = do #ifdef mingw32_HOST_OS - runEvery (Seconds 600) $ - void getLine + forever $ threadDelaySeconds (Seconds 6) #else lock <- newEmptyMVar let check sig = void $ |