diff options
Diffstat (limited to 'Utility/ThreadScheduler.hs')
| -rw-r--r-- | Utility/ThreadScheduler.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Utility/ThreadScheduler.hs b/Utility/ThreadScheduler.hs index 6557398fd..96bccbe70 100644 --- a/Utility/ThreadScheduler.hs +++ b/Utility/ThreadScheduler.hs @@ -26,8 +26,8 @@ runEvery n a = forever $ do threadDelaySeconds :: Seconds -> IO () threadDelaySeconds (Seconds n) = unboundDelay (fromIntegral n * oneSecond) - where - oneSecond = 1000000 -- microseconds + where + oneSecond = 1000000 -- microseconds {- Like threadDelay, but not bounded by an Int. - @@ -52,6 +52,6 @@ waitForTermination = do whenM (queryTerminal stdInput) $ check keyboardSignal lock takeMVar lock - where - check sig lock = void $ - installHandler sig (CatchOnce $ putMVar lock ()) Nothing + where + check sig lock = void $ + installHandler sig (CatchOnce $ putMVar lock ()) Nothing |