# HG changeset patch
# User Adam Chlipala <adam@chlipala.net>
# Date 1295121993 18000
# Node ID f53ec50097a53eea82635d19dda43abe7fc7a383
# Parent  d328983dc5a6b72e23f9a38f33bc4e50d0441d98
Fix type-checking of views to match change to sql_query type

diff -r d328983dc5a6 -r f53ec50097a5 src/elaborate.sml
--- 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