summaryrefslogtreecommitdiffhomepage
path: root/src/Commands.hs
diff options
context:
space:
mode:
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 "")