From f4799004f028094c775c824409bac4e3590b2421 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/crud2.ur | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'demo/crud2.ur')

diff --git a/demo/crud2.ur b/demo/crud2.ur
index 54992e28..a89b37b3 100644
--- a/demo/crud2.ur
+++ b/demo/crud2.ur
@@ -12,13 +12,13 @@ open Crud.Make(struct
                                                             <xml>Ready!</xml>
                                                         else
                                                             <xml>Not ready</xml>),
-                                        Widget = (fn (nm :: Name) => <xml>
+                                        Widget = (fn [nm :: Name] => <xml>
                                           <select{nm}>
                                             <option>Ready</option>
                                             <option>Not ready</option>
                                           </select>
                                         </xml>),
-                                        WidgetPopulated = (fn (nm :: Name) b => <xml>
+                                        WidgetPopulated = (fn [nm :: Name] b => <xml>
                                           <select{nm}>
                                             <option selected={b}>Ready</option>
                                             <option selected={not b}>Not ready</option>
-- 
cgit v1.2.3