diff options
| author | Emilio Jesus Gallego Arias | 2018-06-03 19:05:28 +0200 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2018-06-03 19:05:28 +0200 |
| commit | c5d6b26e8de1a32054509d11ddeeaba3b8bfd8ac (patch) | |
| tree | 1af967a594c865b06f9c62e2264109718ef5095d | |
| parent | 646c254b34c82c4d954aec9820ea872849fb2ebc (diff) | |
| parent | 8c99ee9b5b1212bf52fdf580525489eb8f89a682 (diff) | |
Merge PR #7689: configure: fix warning printing
| -rw-r--r-- | configure.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/configure.ml b/configure.ml index 45c3bb67a4..933143e682 100644 --- a/configure.ml +++ b/configure.ml @@ -33,7 +33,7 @@ let cprintf s = cfprintf stdout s let ceprintf s = cfprintf stderr s let die msg = ceprintf "%s%s%s\nConfiguration script failed!" red msg reset; exit 1 -let warn s = cprintf ("%sWarning: " ^^ s ^^ "%s") yellow reset +let warn s = kfprintf (fun oc -> cfprintf oc "%s" reset) stdout ("%sWarning: " ^^ s) yellow let s2i = int_of_string let i2s = string_of_int |