summaryrefslogtreecommitdiffhomepage
path: root/src/Actions.hs
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2014-09-17 06:02:32 +0200
committerjao <jao@gnu.org>2014-09-17 06:02:32 +0200
commitededbec925df109e4f7ab3acd6b154ab9fdaf2c6 (patch)
tree598a666753c5f66834292b8f2e628c25aa06e071 /src/Actions.hs
parent4aac34f1b04697bbb995cfac056ee7907cbc1f36 (diff)
parentf2b3e4a3cd3037ca18d3c35d3a73219d76b1359d (diff)
downloadxmobar-ededbec925df109e4f7ab3acd6b154ab9fdaf2c6.tar.gz
xmobar-ededbec925df109e4f7ab3acd6b154ab9fdaf2c6.tar.bz2
Merge branch 'commandfix' of https://github.com/phil5/xmobar
Diffstat (limited to 'src/Actions.hs')
-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