Mercurial > urweb

diff src/elaborate.sml @ 233:c466678af854

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
SELECTing arbitrary expressions
author Adam Chlipala <adamc@hcoop.net>
date Thu, 28 Aug 2008 11:17:14 -0400
parents 19e5791923d0
children 44a1663ad893
line wrap: on
line diff
--- a/src/elaborate.sml	Thu Aug 21 16:03:45 2008 -0400
+++ b/src/elaborate.sml	Thu Aug 28 11:17:14 2008 -0400
@@ -1520,7 +1520,8 @@
                             let
                                 val r = ref NONE
                             in
-                                ((L'.EUnif r, loc), ran, [TypeClass (env, dom, r, loc)])
+                                ((L'.EApp (e1', (L'.EUnif r, loc)), loc),
+                                 ran, [TypeClass (env, dom, r, loc)])
                             end
                           | SOME pf => ((L'.EApp (e1', pf), loc), ran, gs1 @ gs2 @ enD gs3 @ enD gs4)
                     end