diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-08-11 23:04:34 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2013-08-11 23:04:34 +0200 |
| commit | a4831ca74ebdcdc002650b3bb4ebf903984c4a33 (patch) | |
| tree | 1e198da21b64eb47f4cc4c9339bdef80b84b742d /src/Commands.hs | |
| parent | fd17a73ec470807adf1b21b6e328642f1a912aee (diff) | |
| parent | 281a73f0308afb85eea5b4d29422031c06132429 (diff) | |
| download | xmobar-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.hs | 2 |
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 "") |