From 6a6c98d74f0eb61b52e8adc5385698a224eeccc1 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Thu, 28 May 2009 10:35:25 -0400
Subject: Demo compiles with pattern-matching-fu

---
 demo/crud3.ur | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'demo/crud3.ur')

diff --git a/demo/crud3.ur b/demo/crud3.ur
index efc6c06e..c336af30 100644
--- a/demo/crud3.ur
+++ b/demo/crud3.ur
@@ -8,13 +8,13 @@ open Crud.Make(struct
 
                    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}/>
-- 
cgit v1.2.3