diff options
Diffstat (limited to 'XMonad/Prompt/Man.hs')
-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 |