diff options
| author | Joey Hess <joey@kitenet.net> | 2014-07-21 16:35:23 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2014-07-21 16:35:23 -0400 |
| commit | 619c8bd261a4fee0b0d40b664e55c51782e062f7 (patch) | |
| tree | ba39cd283d4c0fecb61c7a1bbbb803cc9459a222 /Utility/ThreadScheduler.hs | |
| parent | 7882653e7856df87e598464379951ec89775cd1a (diff) | |
| download | git-repair-619c8bd261a4fee0b0d40b664e55c51782e062f7.tar.gz | |
Merge from git-annex.
Diffstat (limited to 'Utility/ThreadScheduler.hs')
| -rw-r--r-- | Utility/ThreadScheduler.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/Utility/ThreadScheduler.hs b/Utility/ThreadScheduler.hs index dd88dc8..e6a81ae 100644 --- a/Utility/ThreadScheduler.hs +++ b/Utility/ThreadScheduler.hs @@ -3,7 +3,7 @@ - Copyright 2012, 2013 Joey Hess <joey@kitenet.net> - Copyright 2011 Bas van Dijk & Roel van Dijk - - - Licensed under the GNU GPL version 3 or higher. + - License: BSD-2-clause -} {-# LANGUAGE CPP #-} @@ -57,8 +57,7 @@ unboundDelay time = do waitForTermination :: IO () waitForTermination = do #ifdef mingw32_HOST_OS - runEvery (Seconds 600) $ - void getLine + forever $ threadDelaySeconds (Seconds 6000) #else lock <- newEmptyMVar let check sig = void $ |