diff options
author | Emilio Jesus Gallego Arias <e+git@x80.org> | 2018-06-03 19:05:28 +0200 |
---|---|---|
committer | Emilio Jesus Gallego Arias <e+git@x80.org> | 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 45c3bb67a..933143e68 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 |