diff options
| author | Enrico Tassi | 2019-01-10 10:40:42 +0100 |
|---|---|---|
| committer | Enrico Tassi | 2019-01-10 10:55:09 +0100 |
| commit | fae1e1bb8de23d84b13d8e36e183a4147d404b25 (patch) | |
| tree | 8079001836f1628623eed82cbd5bbd8dc8087426 | |
| parent | 7f2e50319d77d09ecc9fdbd6695dd9c92f8389d0 (diff) | |
[checker] avoid some printing in non verbose mode
| -rw-r--r-- | checker/check.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/checker/check.ml b/checker/check.ml index 30437e8bd0..b2930d9535 100644 --- a/checker/check.ml +++ b/checker/check.ml @@ -329,7 +329,7 @@ let intern_from_file (dir, f) = user_err ~hdr:"intern_from_file" (str "The file "++str f++str " contains unfinished tasks"); if opaque_csts <> None then begin - chk_pp (str " (was a vio file) "); + Flags.if_verbose chk_pp (str " (was a vio file) "); Option.iter (fun (_,_,b) -> if not b then user_err ~hdr:"intern_from_file" (str "The file "++str f++str " is still a .vio")) |