diff options
author | Adam Chlipala <adamc@hcoop.net> | 2009-04-09 13:59:34 -0400 |
---|---|---|
committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-09 13:59:34 -0400 |
commit | f181919900b537dca8d42760c4131da446a7e00d (patch) | |
tree | ff692444e26cba80b8c5b19ad5be21a85cbf563c /src/elab_err.sml | |
parent | a8cf53e348e3b6d99a66a897f90de9aa523c9b40 (diff) |
More flexible foreign keying
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 172f7d37..ee8e1fd0 100644 --- a/src/elab_err.sml +++ b/src/elab_err.sml @@ -217,7 +217,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 ":", @@ -227,7 +227,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), |