summaryrefslogtreecommitdiffhomepage
path: root/src/Commands.hs
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2013-08-11 23:04:34 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2013-08-11 23:04:34 +0200
commita4831ca74ebdcdc002650b3bb4ebf903984c4a33 (patch)
tree1e198da21b64eb47f4cc4c9339bdef80b84b742d /src/Commands.hs
parentfd17a73ec470807adf1b21b6e328642f1a912aee (diff)
parent281a73f0308afb85eea5b4d29422031c06132429 (diff)
downloadxmobar-a4831ca74ebdcdc002650b3bb4ebf903984c4a33.tar.gz
xmobar-a4831ca74ebdcdc002650b3bb4ebf903984c4a33.tar.bz2
Merge branch 'safe-run-com' of https://github.com/00Davo/xmobar
Diffstat (limited to 'src/Commands.hs')
-rw-r--r--src/Commands.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Commands.hs b/src/Commands.hs
index a4ab5ed..e4402fc 100644
--- a/src/Commands.hs
+++ b/src/Commands.hs
@@ -62,7 +62,7 @@ instance Exec Command where
start (Com prog args _ r) cb = if r > 0 then go else exec
where go = exec >> tenthSeconds r >> go
exec = do
- (i,o,e,p) <- runInteractiveCommand (unwords (prog:args))
+ (i,o,e,p) <- runInteractiveProcess prog args Nothing Nothing
exit <- waitForProcess p
let closeHandles = hClose o >> hClose i >> hClose e
getL = handle (\(SomeException _) -> return "")