diff options
author | Spencer Janssen <spencerjanssen@gmail.com> | 2009-01-16 22:03:15 +0100 |
---|---|---|
committer | Spencer Janssen <spencerjanssen@gmail.com> | 2009-01-16 22:03:15 +0100 |
commit | 7ddf106694c6174200d84e75055b4e13f5719e02 (patch) | |
tree | 0f2162e4636ed549b63c0766f6af2a93b28c9b02 /XMonad/Util/Loggers.hs | |
parent | dbe81eab127b22ba808ac630cd27f5eccdd1d557 (diff) | |
download | XMonadContrib-7ddf106694c6174200d84e75055b4e13f5719e02.tar.gz XMonadContrib-7ddf106694c6174200d84e75055b4e13f5719e02.tar.xz XMonadContrib-7ddf106694c6174200d84e75055b4e13f5719e02.zip |
Update all uses of doubleFork/waitForProcess
Ignore-this: 4e15b7f3fd6af3b7317449608f5246b0
darcs-hash:20090116210315-25a6b-53190793833624e0c5e36ce353333092e5243883.gz
Diffstat (limited to 'XMonad/Util/Loggers.hs')
-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 |