diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-06-10 19:36:37 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2014-06-10 19:39:22 +0200 |
| commit | c3c747475f5818445438e779bed0685e01306eff (patch) | |
| tree | 490475c9cc4c555c8aa4d5ae17216e738f4d58f6 /checker/checker.ml | |
| parent | 4dc96931154402d0b0883fa79a54da3cf578c5da (diff) | |
Removing explanations of universe inconsistencies from the checker. They
were never used and were responsible for code duplication.
Diffstat (limited to 'checker/checker.ml')
| -rw-r--r-- | checker/checker.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/checker/checker.ml b/checker/checker.ml index f3c583b83..b39fc2af7 100644 --- a/checker/checker.ml +++ b/checker/checker.ml @@ -251,7 +251,7 @@ let rec explain_exn = function hov 0 (anomaly_string () ++ str "uncaught exception Invalid_argument " ++ str (guill s) ++ report ()) | Sys.Break -> hov 0 (fnl () ++ str "User interrupt.") - | Univ.UniverseInconsistency (o,u,v,_) -> + | Univ.UniverseInconsistency (o,u,v) -> let msg = if !Flags.debug (*!Constrextern.print_universes*) then spc() ++ str "(cannot enforce" ++ spc() ++ Univ.pr_uni u ++ spc() ++ |