diff options
| author | jao <jao@gnu.org> | 2014-09-17 06:02:32 +0200 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2014-09-17 06:02:32 +0200 |
| commit | ededbec925df109e4f7ab3acd6b154ab9fdaf2c6 (patch) | |
| tree | 598a666753c5f66834292b8f2e628c25aa06e071 | |
| parent | 4aac34f1b04697bbb995cfac056ee7907cbc1f36 (diff) | |
| parent | f2b3e4a3cd3037ca18d3c35d3a73219d76b1359d (diff) | |
| download | xmobar-ededbec925df109e4f7ab3acd6b154ab9fdaf2c6.tar.gz xmobar-ededbec925df109e4f7ab3acd6b154ab9fdaf2c6.tar.bz2 | |
Merge branch 'commandfix' of https://github.com/phil5/xmobar
| -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 |