summaryrefslogtreecommitdiffhomepage
path: root/XMobar.hs
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@ing.unitn.it>2007-06-26 20:06:27 +0200
committerAndrea Rossato <andrea.rossato@ing.unitn.it>2007-06-26 20:06:27 +0200
commita4d9750e6e676f020fe5a95d291272b161671e03 (patch)
tree84b77408be931a2b046d33605cb8e6bfc5a7133a /XMobar.hs
parentb605d2fe936e2d4eb3e76a40014c7c8ab715c380 (diff)
downloadxmobar-a4d9750e6e676f020fe5a95d291272b161671e03.tar.gz
xmobar-a4d9750e6e676f020fe5a95d291272b161671e03.tar.bz2
corrected the threadDelay arguments
darcs-hash:20070626180627-d6583-4fd5f46b7b8a9de2dd593a091ee31e692249d0f5.gz
Diffstat (limited to 'XMobar.hs')
-rw-r--r--XMobar.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/XMobar.hs b/XMobar.hs
index 9bc982e..3d2a4b9 100644
--- a/XMobar.hs
+++ b/XMobar.hs
@@ -191,7 +191,7 @@ runCommandLoop :: MVar String -> Config -> (String,String,String) -> IO ()
runCommandLoop var conf c@(s,com,ss)
| com == "" =
do modifyMVar_ var (\_ -> return $ "Could not parse the template")
- threadDelay $ 100000 * refresh conf
+ threadDelay (100000 * (refresh conf))
runCommandLoop var conf c
| otherwise =
do (i,o,e,p) <- runInteractiveCommand (com ++ concat (map (' ':) $ getOptions conf com))
@@ -205,11 +205,11 @@ runCommandLoop var conf c@(s,com,ss)
ExitSuccess -> do str <- hGetLine o
closeHandles
modifyMVar_ var (\_ -> return $ s ++ str ++ ss)
- threadDelay $ 100000 * (getRefRate conf com)
+ threadDelay (100000 * (getRefRate conf com))
runCommandLoop var conf c
_ -> do closeHandles
modifyMVar_ var $ \_ -> return $ "Could not execute command " ++ com
- threadDelay $ 100000 * (getRefRate conf com)
+ threadDelay (100000 * (getRefRate conf com))
runCommandLoop var conf c