diff options
| -rw-r--r-- | Utility/Batch.hs | 11 |
1 files changed, 3 insertions, 8 deletions
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 |