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.
This commit is contained in:
Joey Hess 2014-07-16 15:42:12 -04:00
parent 9babd88e90
commit aacd5c6994
2 changed files with 3 additions and 2 deletions

View file

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

View file

@ -128,3 +128,5 @@ git-annex: assistant: 1 failed
"""]] """]]
[[!tag confirmed]] [[!tag confirmed]]
> [[fixed|done]] --[[Joey]]