mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

assistant --autostart: Automatically ionices the daemons it starts.

Browse source
This commit is contained in:
Joey Hess 2013-06-21 13:23:20 -04:00
parent b9448c31a3
commit d901ba1781
4 changed files with 15 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Command/Assistant.hs
View file

@ -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"]