Mercurial > urweb

diff src/elaborate.sml @ 1395:f53ec50097a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix type-checking of views to match change to sql_query type
author Adam Chlipala <adam@chlipala.net>
date Sat, 15 Jan 2011 15:06:33 -0500
parents dd99e1702432
children 7d963b8019e6
line wrap: on
line diff
--- a/src/elaborate.sml	Sat Jan 15 14:53:13 2011 -0500
+++ b/src/elaborate.sml	Sat Jan 15 15:06:33 2011 -0500
@@ -3926,6 +3926,7 @@
 
                     val ct = queryOf ()
                     val ct = (L'.CApp (ct, (L'.CRecord ((L'.KRecord (L'.KType, loc), loc), []), loc)), loc)
+                    val ct = (L'.CApp (ct, (L'.CRecord ((L'.KRecord (L'.KType, loc), loc), []), loc)), loc)
                     val ct = (L'.CApp (ct, ts), loc)
                     val ct = (L'.CApp (ct, fs), loc)
                 in