Mercurial > urweb

diff demo/more/grid.ur @ 1342:78fe9841c39d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Small tweaks to update demos for record unification change
author Adam Chlipala <adam@chlipala.net>
date Wed, 15 Dec 2010 09:42:35 -0500
parents f0afe61a6f8b
children 68429cfce8db
line wrap: on
line diff
--- a/demo/more/grid.ur	Wed Dec 15 09:37:36 2010 -0500
+++ b/demo/more/grid.ur	Wed Dec 15 09:42:35 2010 -0500
@@ -125,7 +125,7 @@
       <table class={tabl}>
         <tr class={tr}>
           <th/> <th/> <th><button value="No sort" onclick={set grid.Sort None}/></th>
-          {@mapX2 [fst3] [colMeta M.row] [_]
+          {@mapX2 [fst3] [colMeta M.row] [[Body, Tr]]
             (fn [nm :: Name] [p :: (Type * Type * Type)] [rest :: {(Type * Type * Type)}] [[nm] ~ rest]
                              data (meta : colMeta M.row p) =>
                 <xml><th class={th}>