diff demo/more/dragList.ur @ 918:6a77c3e33908

Use cdata for shorter Monad map
author Adam Chlipala <adamc@hcoop.net>
date Tue, 08 Sep 2009 11:02:53 -0400
parents 321a2d6feb40
children e6bc6bbd7a32
line wrap: on
line diff
--- a/demo/more/dragList.ur	Tue Sep 08 10:55:49 2009 -0400
+++ b/demo/more/dragList.ur	Tue Sep 08 11:02:53 2009 -0400
@@ -15,7 +15,7 @@
                                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>