diff options
| author | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2007-06-26 20:06:27 +0200 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2007-06-26 20:06:27 +0200 |
| commit | a4d9750e6e676f020fe5a95d291272b161671e03 (patch) | |
| tree | 84b77408be931a2b046d33605cb8e6bfc5a7133a | |
| parent | b605d2fe936e2d4eb3e76a40014c7c8ab715c380 (diff) | |
| download | xmobar-a4d9750e6e676f020fe5a95d291272b161671e03.tar.gz xmobar-a4d9750e6e676f020fe5a95d291272b161671e03.tar.bz2 | |
corrected the threadDelay arguments
darcs-hash:20070626180627-d6583-4fd5f46b7b8a9de2dd593a091ee31e692249d0f5.gz
| -rw-r--r-- | XMobar.hs | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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 |