diff options
| author | Phil Xiaojun Hu <phil@cnphil.com> | 2014-09-17 00:31:12 +0800 |
|---|---|---|
| committer | Phil Xiaojun Hu <phil@cnphil.com> | 2014-09-17 00:31:12 +0800 |
| commit | f2b3e4a3cd3037ca18d3c35d3a73219d76b1359d (patch) | |
| tree | c4bd64102f02bf1957d343c34d538f7eea253ae4 | |
| parent | eb9f7a73677cc2bc872c3ea69f073faeefe6c989 (diff) | |
| download | xmobar-f2b3e4a3cd3037ca18d3c35d3a73219d76b1359d.tar.gz xmobar-f2b3e4a3cd3037ca18d3c35d3a73219d76b1359d.tar.bz2 | |
Replace runCommand with system to eliminate zombies
| -rw-r--r-- | src/Actions.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Actions.hs b/src/Actions.hs index a739828..cd8ecb9 100644 --- a/src/Actions.hs +++ b/src/Actions.hs @@ -12,7 +12,7 @@ module Actions (Action(..), runAction, stripActions) where -import System.Process (runCommand) +import System.Process (system) import Control.Monad (void) import Text.Regex (Regex, subRegex, mkRegex, matchRegex) import Graphics.X11.Types (Button) @@ -21,7 +21,7 @@ data Action = Spawn [Button] String deriving (Eq) runAction :: Action -> IO () -runAction (Spawn _ s) = void $ runCommand s +runAction (Spawn _ s) = void $ system (s ++ "&") stripActions :: String -> String stripActions s = case matchRegex actionRegex s of |