diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-06-25 16:38:12 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-06-25 16:38:12 -0400 |
| commit | 5cfe91f06d5eaab217f1b289810d96fee0144c31 (patch) | |
| tree | bf4bff9c2d25c73590f17eec3e92558193c19f9a /Utility/ThreadScheduler.hs | |
| parent | 0b146f9ecc36545478c4a2218981b376828c61db (diff) | |
add a push retry thread
Diffstat (limited to 'Utility/ThreadScheduler.hs')
| -rw-r--r-- | Utility/ThreadScheduler.hs | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/Utility/ThreadScheduler.hs b/Utility/ThreadScheduler.hs index 07a740160..6557398fd 100644 --- a/Utility/ThreadScheduler.hs +++ b/Utility/ThreadScheduler.hs @@ -24,12 +24,6 @@ runEvery n a = forever $ do threadDelaySeconds n a -runEveryWith :: Seconds -> a -> (a -> IO a) -> IO () -runEveryWith n val a = do - threadDelaySeconds n - val' <- a val - runEveryWith n val' a - threadDelaySeconds :: Seconds -> IO () threadDelaySeconds (Seconds n) = unboundDelay (fromIntegral n * oneSecond) where |