diff options
Diffstat (limited to 'src/Xmobar/Run')
| -rw-r--r-- | src/Xmobar/Run/Exec.hs | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/src/Xmobar/Run/Exec.hs b/src/Xmobar/Run/Exec.hs index db7e7b4..ad68232 100644 --- a/src/Xmobar/Run/Exec.hs +++ b/src/Xmobar/Run/Exec.hs @@ -23,6 +23,7 @@ import Prelude import Data.Char import Control.Concurrent +import Xmobar.App.Timer (doEveryTenthSeconds) import Xmobar.System.Signal -- | Work around to the Int max bound: since threadDelay takes an Int, it @@ -34,10 +35,6 @@ tenthSeconds s | s >= x = do threadDelay (x * 100000) | otherwise = threadDelay (s * 100000) where x = (maxBound :: Int) `div` 100000 -doEveryTenthSeconds :: Int -> IO () -> IO () -doEveryTenthSeconds r action = go - where go = action >> tenthSeconds r >> go - class Show e => Exec e where alias :: e -> String alias e = takeWhile (not . isSpace) $ show e |