diff options
Diffstat (limited to 'src/util.ml')
| -rw-r--r-- | src/util.ml | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/util.ml b/src/util.ml index 94bbc6dc..6d4b3726 100644 --- a/src/util.ml +++ b/src/util.ml @@ -413,3 +413,5 @@ let zchar c = let zencode_string str = "z" ^ List.fold_left (fun s1 s2 -> s1 ^ s2) "" (List.map zchar (string_to_list str)) let zencode_upper_string str = "Z" ^ List.fold_left (fun s1 s2 -> s1 ^ s2) "" (List.map zchar (string_to_list str)) + +let warn str = prerr_endline (("Warning" |> yellow |> clear) ^ ": " ^ str) |