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

avoid an unncessary use of the shell

Browse source
This commit is contained in:
Joey Hess 2013-12-01 15:01:56 -04:00
parent 2711d13d55
commit 7fc84717e8
1 changed files with 3 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

11
Utility/Batch.hs
View file

@ -53,14 +53,9 @@ toBatchCommand (command, params) = do
, ("ionice", ["-c3"]) , ("ionice", ["-c3"])
, ("nocache", []) , ("nocache", [])
] ]
let command' = "sh" let (command', params') = case nicers of
let params' = [] -> (command, params)
[ Param "-c" (first:rest) -> (fst first, map Param (snd first ++ concatMap (\p -> fst p : snd p) rest ++ [command]) ++ params)
, Param $ unwords $
"exec"
: concatMap (\p -> fst p : snd p) nicers
++ map shellEscape (command : toCommand params)
]
#else #else
let command' = command let command' = command
let params' = params let params' = params