diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-06-16 14:38:01 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-06-16 14:38:01 -0400 |
| commit | 4dce690086c8d6132c22d5c47a0561a4b1261293 (patch) | |
| tree | 58dd4551f8c5d971e12e1c704f7abd9d90f3373e /src/elab_err.sml | |
| parent | c23f27988ff76b4923a63ced2452c4fd7787a745 (diff) | |
Fix a bug in type class enrichment from substructures
Diffstat (limited to 'src/elab_err.sml')
| -rw-r--r-- | src/elab_err.sml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/elab_err.sml b/src/elab_err.sml index dc34560b..f6fec25b 100644 --- a/src/elab_err.sml +++ b/src/elab_err.sml @@ -218,7 +218,7 @@ fun expError env err = ("Type", p_con env c)]) co) | Unresolvable (loc, c) => (ErrorMsg.errorAt loc "Can't resolve type class instance"; - eprefaces' [("Class constraint", p_con env c)(*, + eprefaces' [("Class constraint", p_con env c), ("Class database", p_list (fn (c, rules) => box [P.p_con env c, PD.string ":", @@ -228,7 +228,7 @@ fun expError env err = PD.string ":", space, P.p_con env c]) rules]) - (E.listClasses env))*)]) + (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), |