diff options
| -rw-r--r-- | XMonad/Util/Run.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/XMonad/Util/Run.hs b/XMonad/Util/Run.hs index 6a63941..b3f4206 100644 --- a/XMonad/Util/Run.hs +++ b/XMonad/Util/Run.hs @@ -33,9 +33,9 @@ module XMonad.Util.Run ( import System.Posix.IO import System.Posix.Process (executeFile, forkProcess, createSession) import Control.Concurrent (threadDelay) -import Control.Exception (try) +import Control.Exception (try) -- use OldException with base 4 import System.IO -import System.Process (runInteractiveProcess, waitForProcess) +import System.Process (runInteractiveProcess) import XMonad import Control.Monad @@ -68,14 +68,14 @@ runProcessWithInput cmd args input = do runProcessWithInputAndWait :: FilePath -> [String] -> String -> Int -> IO () runProcessWithInputAndWait cmd args input timeout = do forkProcess $ do - (pin, pout, perr, ph) <- runInteractiveProcess cmd args Nothing Nothing + (pin, pout, perr, _) <- runInteractiveProcess cmd args Nothing Nothing hPutStr pin input hFlush pin threadDelay timeout hClose pin hClose pout hClose perr - waitForProcess ph + -- no need to waitForProcess, we ignore SIGCHLD return () return () |