diff options
Diffstat (limited to 'Command/Assistant.hs')
| -rw-r--r-- | Command/Assistant.hs | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/Command/Assistant.hs b/Command/Assistant.hs index c40c9e5e9..a8928bcf4 100644 --- a/Command/Assistant.hs +++ b/Command/Assistant.hs @@ -55,13 +55,16 @@ autoStart = do f <- autoStartFile error $ "Nothing listed in " ++ f program <- readProgramFile + haveionice <- inPath "ionice" forM_ dirs $ \d -> do putStrLn $ "git-annex autostart in " ++ d - ifM (catchBoolIO $ go program d) + ifM (catchBoolIO $ go haveionice program d) ( putStrLn "ok" , putStrLn "failed" ) where - go program dir = do + go haveionice program dir = do setCurrentDirectory dir - boolSystem program [Param "assistant"] + if haveionice + then boolSystem "ionice" [Param "-c3", Param program, Param "assistant"] + else boolSystem program [Param "assistant"] |