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:
parent
9babd88e90
commit
aacd5c6994
2 changed files with 3 additions and 2 deletions
|
@ -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 $
|
||||||
|
|
|
@ -128,3 +128,5 @@ git-annex: assistant: 1 failed
|
||||||
"""]]
|
"""]]
|
||||||
|
|
||||||
[[!tag confirmed]]
|
[[!tag confirmed]]
|
||||||
|
|
||||||
|
> [[fixed|done]] --[[Joey]]
|
||||||
|
|
Loading…
Reference in a new issue