diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2012-06-03 11:29:31 -0400 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2012-06-03 11:29:31 -0400 |
| commit | 797db05343b520b16ea4f8eeab5fea6255d3284d (patch) | |
| tree | deacf0a9ebedccbc3e22fdb143c51d3dcc153a5b /src/elab_err.sml | |
| parent | 858481a426ea3873440c3bed30eb563f8cf3480e (diff) | |
Lighter-weight encoding of window function use
Diffstat (limited to 'src/elab_err.sml')
| -rw-r--r-- | src/elab_err.sml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/elab_err.sml b/src/elab_err.sml index 0e04cf51..4754d4ce 100644 --- a/src/elab_err.sml +++ b/src/elab_err.sml @@ -242,7 +242,11 @@ fun expError env err = eprefaces' ([("Class constraint", p_con env c)] @ (case E.resolveFailureCause () of NONE => [] - | SOME c' => [("Reduced to unresolvable", p_con env c')]))) + | SOME c' => [("Reduced to unresolvable", p_con env c')]))(*; + app (fn (c, rs) => (eprefaces' [("CLASS", p_con env c)]; + app (fn (c, e) => eprefaces' [("RULE", p_con env c), + ("IMPL", p_exp env e)]) rs)) + (E.listClasses env)*)) | IllegalRec (x, e) => (ErrorMsg.errorAt (#2 e) "Illegal 'val rec' righthand side (must be a function abstraction)"; eprefaces' [("Variable", PD.string x), |