diff options
| author |  Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2015-12-31 17:04:07 +0100 |
|---|---|---|
| committer | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2015-12-31 17:04:07 +0100 |
| commit | f7433647beb23113faf0bf68326e5dc98e388d79 (patch) | |
| tree | 6a074922c9d1ceb14060c184d1d53d4293055ee2 /checker/checker.ml | |
| parent | 5319465eb1eaf89410dac96cd14b14b9b95601e7 (diff) | |
Remove unused function Checker.print_loc.
There is no location to print anyway, so it will never be useful.
Diffstat (limited to 'checker/checker.ml')
| -rw-r--r-- | checker/checker.ml | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/checker/checker.ml b/checker/checker.ml index d5d9b9e3b..a13d529e8 100644 --- a/checker/checker.ml +++ b/checker/checker.ml @@ -217,12 +217,6 @@ open Type_errors let anomaly_string () = str "Anomaly: " let report () = (str "." ++ spc () ++ str "Please report.") -let print_loc loc = - if loc = Loc.ghost then - (str"<unknown>") - else - let loc = Loc.unloc loc in - (int (fst loc) ++ str"-" ++ int (snd loc)) let guill s = str "\"" ++ str s ++ str "\"" let where s = |