From 19bb3834ac44372bd6c86f496b7fb12e65a70821 Mon Sep 17 00:00:00 2001
From: Nathaniel Wesley Filardo <nwf@cs.jhu.edu>
Date: Thu, 29 May 2014 02:17:23 -0400
Subject: Stop using '++ "&"' to background an action

---
 src/Actions.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Actions.hs b/src/Actions.hs
index 8772b07..5bcfea7 100644
--- a/src/Actions.hs
+++ b/src/Actions.hs
@@ -12,7 +12,7 @@
 
 module Actions (Action(..), runAction, stripActions) where
 
-import System.Process (system)
+import System.Process (runCommand)
 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 $ system (s ++ "&")
+runAction (Spawn _ s) = void $ runCommand s
 
 stripActions :: String -> String
 stripActions s = case matchRegex actionRegex s of
-- 
cgit v1.2.3