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/Prompt/Man.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 '')
-rw-r--r-- | XMonad/Prompt/Man.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/XMonad/Prompt/Man.hs b/XMonad/Prompt/Man.hs index 20e282d..a9c8d0e 100644 --- a/XMonad/Prompt/Man.hs +++ b/XMonad/Prompt/Man.hs @@ -88,12 +88,12 @@ manCompl mans s | s == "" || last s == ' ' = return [] -- better\/more idiomatic.) getCommandOutput :: String -> IO String getCommandOutput s = do - (pin, pout, perr, ph) <- runInteractiveCommand s + -- we can ignore the process handle because we ignor SIGCHLD + (pin, pout, perr, _) <- runInteractiveCommand s hClose pin output <- hGetContents pout E.evaluate (length output) hClose perr - waitForProcess ph return output stripExt :: String -> String |