avoid even trying to use nice on windows
This commit is contained in:
parent
b6794f174e
commit
c02bc07ce0
1 changed files with 4 additions and 0 deletions
|
@ -63,6 +63,7 @@ batchCommandEnv command params environ = do
|
||||||
void $ waitForProcess pid
|
void $ waitForProcess pid
|
||||||
E.throwIO asyncexception
|
E.throwIO asyncexception
|
||||||
where
|
where
|
||||||
|
#ifndef mingw32_HOST_OS
|
||||||
p = proc "sh"
|
p = proc "sh"
|
||||||
[ "-c"
|
[ "-c"
|
||||||
, "exec " ++ nicedcommand
|
, "exec " ++ nicedcommand
|
||||||
|
@ -71,3 +72,6 @@ batchCommandEnv command params environ = do
|
||||||
nicedcommand
|
nicedcommand
|
||||||
| Build.SysConfig.nice = "nice " ++ commandline
|
| Build.SysConfig.nice = "nice " ++ commandline
|
||||||
| otherwise = commandline
|
| otherwise = commandline
|
||||||
|
#else
|
||||||
|
p = proc command (toCommand paras)
|
||||||
|
#endif
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue