diff options
| author | Pierre-Marie Pédrot | 2015-02-07 15:21:14 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2015-02-07 15:21:26 +0100 |
| commit | a71aec672bc66a0e19752fa15d55bc2bd75ef3bc (patch) | |
| tree | 2e0a6b76d99d25a8c492ae187d7164a74cb25470 | |
| parent | cdfb6705e0a2d01b7c01d83bfe898a64ee148c34 (diff) | |
Fixing bug #4009.
We only allow color output under Unix OSes.
| -rw-r--r-- | lib/terminal.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/terminal.ml b/lib/terminal.ml index 1e6c25578e..0f6b23af36 100644 --- a/lib/terminal.ml +++ b/lib/terminal.ml @@ -167,7 +167,8 @@ let reset_style = { negative = Some false; } -let has_style t = Unix.isatty t +let has_style t = + Unix.isatty t && Sys.os_type = "Unix" let split c s = let len = String.length s in |