summaryrefslogtreecommitdiff
path: root/src/elaborate.sml
diff options
context:
space:
mode:
authorGravatar Adam Chlipala <adamc@hcoop.net>2009-06-16 14:38:01 -0400
committerGravatar Adam Chlipala <adamc@hcoop.net>2009-06-16 14:38:01 -0400
commit4dce690086c8d6132c22d5c47a0561a4b1261293 (patch)
tree58dd4551f8c5d971e12e1c704f7abd9d90f3373e /src/elaborate.sml
parentc23f27988ff76b4923a63ced2452c4fd7787a745 (diff)
Fix a bug in type class enrichment from substructures
Diffstat (limited to 'src/elaborate.sml')
-rw-r--r--src/elaborate.sml1
1 files changed, 0 insertions, 1 deletions
diff --git a/src/elaborate.sml b/src/elaborate.sml
index e78132c4..f0aa8d7a 100644
--- a/src/elaborate.sml
+++ b/src/elaborate.sml
@@ -696,7 +696,6 @@
and unifySummaries env (loc, k, s1 : record_summary, s2 : record_summary) =
let
- val loc = #2 k
(*val () = eprefaces "Summaries" [("loc", PD.string (ErrorMsg.spanToString loc)),
("#1", p_summary env s1),
("#2", p_summary env s2)]*)