Mercurial > urweb

diff demo/crud3.ur @ 823:669ac5e9a69e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Demo compiles with pattern-matching-fu
author Adam Chlipala <adamc@hcoop.net>
date Thu, 28 May 2009 10:35:25 -0400
parents c884a42599f3
children c7b9a33c26c8
line wrap: on
line diff
--- a/demo/crud3.ur	Thu May 28 10:16:50 2009 -0400
+++ b/demo/crud3.ur	Thu May 28 10:35:25 2009 -0400
@@ -8,13 +8,13 @@
 
                    val cols = {Text = {Nam = "Text",
                                        Show = txt,
-                                       Widget = (fn (nm :: Name) => <xml>
+                                       Widget = (fn [nm :: Name] => <xml>
                                          <subform{nm}>
                                            <textbox{#A}/>
                                            <textbox{#B}/>
                                          </subform>
                                        </xml>),
-                                       WidgetPopulated = (fn (nm :: Name) s => <xml>
+                                       WidgetPopulated = (fn [nm :: Name] s => <xml>
                                          <subform{nm}>
                                            <textbox{#A} value={s}/>
                                            <textbox{#B}/>