changeset 1395:f53ec50097a5

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 d328983dc5a6
children 115d217bbfbc
files src/elaborate.sml
diffstat 1 files changed, 1 insertions(+), 0 deletions(-) [+]
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