From 50bbd6df3de3f637fe8bb680ad707a133e976c6e Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Tue, 8 Sep 2009 11:02:53 -0400
Subject: Use cdata for shorter Monad map

---
 demo/more/dragList.ur | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'demo')

diff --git a/demo/more/dragList.ur b/demo/more/dragList.ur
index efdafc8a..c4e9b69a 100644
--- a/demo/more/dragList.ur
+++ b/demo/more/dragList.ur
@@ -15,7 +15,7 @@ fun draggableList title items =
                                set di movedOver;
                                set itemSource original;
                                set draggingItem (Some itemSource)}>
-              <dyn signal={Monad.mp (fn s => <xml>{[s]}</xml>) (signal itemSource)}/>
+              <dyn signal={Monad.mp cdata (signal itemSource)}/>
          </li></xml>) itemSources}
       </ul>
     </xml>
-- 
cgit v1.2.3