summaryrefslogtreecommitdiffhomepage
path: root/src/Commands.hs
diff options
context:
space:
mode:
authorNorbert Zeh <nzeh@cs.dal.ca>2011-08-08 17:48:06 -0300
committerNorbert Zeh <nzeh@cs.dal.ca>2011-08-08 17:48:06 -0300
commit5d8ce11cd18f8c2458046af03a6909434954704a (patch)
tree9a84f935e6e5494e7582f70e75cbd0e471ddfe2e /src/Commands.hs
parenteab5960f5d2d6bd15119ff8f613b8d8f2df88287 (diff)
parent2a005217151dbfff86c3d4a478ee8d305d04eb4c (diff)
downloadxmobar-5d8ce11cd18f8c2458046af03a6909434954704a.tar.gz
xmobar-5d8ce11cd18f8c2458046af03a6909434954704a.tar.bz2
Merge remote-tracking branch 'nzeh/master'
Diffstat (limited to 'src/Commands.hs')
-rw-r--r--src/Commands.hs7
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