Don't color the whitespace in --display=short
This commit is contained in:
parent
231b064858
commit
808644533f
|
@ -284,8 +284,10 @@ let run_internal ?dir ?(stdout_to=Terminal) ?(stderr_to=Terminal) ?env ~purpose
|
||||||
"@{<warning>Warning@}: Command [@{<id>%d@}] exited with code %d, \
|
"@{<warning>Warning@}: Command [@{<id>%d@}] exited with code %d, \
|
||||||
but I'm ignoring it, hope that's OK.\n" id n
|
but I'm ignoring it, hope that's OK.\n" id n
|
||||||
end else if output <> "" ||
|
end else if output <> "" ||
|
||||||
(display = Short && purpose <> Internal_job) then
|
(display = Short && purpose <> Internal_job) then begin
|
||||||
print "@{<ok>%12s@} %a\n%s" progname Fancy.pp_purpose purpose output;
|
let pad = String.make (max 0 (12 - String.length progname)) ' ' in
|
||||||
|
print "%s@{<ok>%s@} %a\n%s" pad progname Fancy.pp_purpose purpose output
|
||||||
|
end;
|
||||||
n
|
n
|
||||||
| WEXITED n ->
|
| WEXITED n ->
|
||||||
if display = Verbose then
|
if display = Verbose then
|
||||||
|
|
Loading…
Reference in New Issue