diff options
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Util/Loggers.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/XMonad/Util/Loggers.hs b/XMonad/Util/Loggers.hs index af0871c..35892fd 100644 --- a/XMonad/Util/Loggers.hs +++ b/XMonad/Util/Loggers.hs @@ -30,7 +30,7 @@ import XMonad.Core import System.Time import System.IO -import System.Process (runInteractiveCommand, waitForProcess) +import System.Process (runInteractiveCommand) import System.Locale -- $usage @@ -82,7 +82,7 @@ battery = logCmd "/usr/bin/acpi | sed -r 's/.*?: (.*%).*/\\1/; s/discharging, ([ -- | Create a 'Logger' from an arbitrary shell command. logCmd :: String -> Logger -logCmd c = io $ do (_, out, _, proc) <- runInteractiveCommand c +logCmd c = io $ do (_, out, _, _) <- runInteractiveCommand c output <- hGetLine out - waitForProcess proc + -- no need to waitForProcess, we ignore SIGCHLD return $ Just output |