diff calendar.ur @ 23:7c734edc6301

Merge from Adam.
author Karn Kallio <kkallio@eka>
date Sat, 24 Sep 2011 18:55:27 -0430
parents 554e342665fe
children a037ed3854e3
line wrap: on
line diff
--- a/calendar.ur	Mon Aug 22 05:06:15 2011 -0430
+++ b/calendar.ur	Sat Sep 24 18:55:27 2011 -0430
@@ -207,7 +207,7 @@
     SourceL.onChange ctl.Day f
 
 val gui_t = Gui.mkGui 
-                (fn ctl =>
+                (fn [body ~ []] ctl =>
                     <xml>
                       <dyn signal={render' ctl}/>
                     </xml>)