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
commitb93aa3fc0a1aebc3be9e9a69f926eae0300ba253 (patch)
tree58dd4551f8c5d971e12e1c704f7abd9d90f3373e /src/elaborate.sml
parent9951d7544ba5deaea67864259001a21c12ff11ea (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)]*)