# HG changeset patch
# User Adam Chlipala <adam@chlipala.net>
# Date 1325170061 18000
# Node ID c815dabcfe3cfbf8ca27310ce46baee4849685df
# Parent  ca3b73a7b4d0e2563f2a856dafd6f0af1eb44a14
Finish updating Grid1 demo to work with type inference change

diff -r ca3b73a7b4d0 -r c815dabcfe3c demo/more/grid1.ur
--- a/demo/more/grid1.ur	Wed Dec 28 18:05:27 2011 -0500
+++ b/demo/more/grid1.ur	Thu Dec 29 09:47:41 2011 -0500
@@ -11,8 +11,16 @@
 fun page (n, s) = return <xml>A = {[n]}, B = {[s]}</xml>
 
 open Make(struct
+              structure F = Direct.Foreign(struct
+                                               con nm = #Id
+                                               con t = _
+                                               val tab = t1
+                                               fun render r = r.A
+                                           end)
+
               val tab = t
               con key = [Id = _]
+              con row = _
 
               val raw = {Id = {New = nextval s,
                                Inj = _},
@@ -29,12 +37,6 @@
                          F = {New = return None,
                               Inj = _}}
 
-              structure F = Direct.Foreign(struct
-                                               con nm = #Id
-                                               val tab = t1
-                                               fun render r = r.A
-                                           end)
-
               val cols = {Id = Direct.readOnly [#Id] "Id" Direct.int,
                           A = Direct.editable [#A] "A" Direct.int,
                           B = Direct.editable [#B] "B" Direct.string,