From a4d9750e6e676f020fe5a95d291272b161671e03 Mon Sep 17 00:00:00 2001 From: Andrea Rossato Date: Tue, 26 Jun 2007 20:06:27 +0200 Subject: corrected the threadDelay arguments darcs-hash:20070626180627-d6583-4fd5f46b7b8a9de2dd593a091ee31e692249d0f5.gz --- XMobar.hs | 6 +++--- 1 file 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 -- cgit v1.2.3