summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorPhil Xiaojun Hu <phil@cnphil.com>2014-09-17 00:31:12 +0800
committerPhil Xiaojun Hu <phil@cnphil.com>2014-09-17 00:31:12 +0800
commitf2b3e4a3cd3037ca18d3c35d3a73219d76b1359d (patch)
treec4bd64102f02bf1957d343c34d538f7eea253ae4
parenteb9f7a73677cc2bc872c3ea69f073faeefe6c989 (diff)
downloadxmobar-f2b3e4a3cd3037ca18d3c35d3a73219d76b1359d.tar.gz
xmobar-f2b3e4a3cd3037ca18d3c35d3a73219d76b1359d.tar.bz2
Replace runCommand with system to eliminate zombies
-rw-r--r--src/Actions.hs4
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