Mercurial > urweb

changeset 1647:c815dabcfe3c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Finish updating Grid1 demo to work with type inference change
author Adam Chlipala <adam@chlipala.net>
date Thu, 29 Dec 2011 09:47:41 -0500
parents ca3b73a7b4d0
children bd7edca0aec1
files demo/more/grid1.ur
diffstat 1 files changed, 8 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- 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,