diff options
| author | Norbert Zeh <nzeh@cs.dal.ca> | 2011-08-08 17:48:06 -0300 |
|---|---|---|
| committer | Norbert Zeh <nzeh@cs.dal.ca> | 2011-08-08 17:48:06 -0300 |
| commit | 5d8ce11cd18f8c2458046af03a6909434954704a (patch) | |
| tree | 9a84f935e6e5494e7582f70e75cbd0e471ddfe2e /src/Commands.hs | |
| parent | eab5960f5d2d6bd15119ff8f613b8d8f2df88287 (diff) | |
| parent | 2a005217151dbfff86c3d4a478ee8d305d04eb4c (diff) | |
| download | xmobar-5d8ce11cd18f8c2458046af03a6909434954704a.tar.gz xmobar-5d8ce11cd18f8c2458046af03a6909434954704a.tar.bz2 | |
Merge remote-tracking branch 'nzeh/master'
Diffstat (limited to 'src/Commands.hs')
| -rw-r--r-- | src/Commands.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/Commands.hs b/src/Commands.hs index 38d0aed..1bfbb94 100644 --- a/src/Commands.hs +++ b/src/Commands.hs @@ -75,8 +75,7 @@ instance Exec Command where -- is not possible to set a thread delay grater than about 45 minutes. -- With a little recursion we solve the problem. tenthSeconds :: Int -> IO () -tenthSeconds s | s >= x = do threadDelay y - tenthSeconds (x - s) +tenthSeconds s | s >= x = do threadDelay (x * 100000) + tenthSeconds (s - x) | otherwise = threadDelay (s * 100000) - where y = maxBound :: Int - x = y `div` 100000 + where x = (maxBound :: Int) `div` 100000 |