From 1376eb62e5b784b86e0bb2827e99d32d18aff5af Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sun, 1 Dec 2013 15:01:56 -0400 Subject: avoid an unncessary use of the shell --- Utility/Batch.hs | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) (limited to 'Utility') diff --git a/Utility/Batch.hs b/Utility/Batch.hs index 98698ac26..958801e88 100644 --- a/Utility/Batch.hs +++ b/Utility/Batch.hs @@ -53,14 +53,9 @@ toBatchCommand (command, params) = do , ("ionice", ["-c3"]) , ("nocache", []) ] - let command' = "sh" - let params' = - [ Param "-c" - , Param $ unwords $ - "exec" - : concatMap (\p -> fst p : snd p) nicers - ++ map shellEscape (command : toCommand params) - ] + let (command', params') = case nicers of + [] -> (command, params) + (first:rest) -> (fst first, map Param (snd first ++ concatMap (\p -> fst p : snd p) rest ++ [command]) ++ params) #else let command' = command let params' = params -- cgit v1.2.3