Mercurial > gui

diff calendar.ur @ 29:93140c5cc972

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Clean up dependencies and examples; add Style module
author Adam Chlipala <adam@chlipala.net>
date Sat, 12 May 2012 10:03:44 -0400
parents 5905b56e0cd9
children b5432d74841a
line wrap: on
line diff
--- a/calendar.ur	Sun Feb 12 10:27:02 2012 -0500
+++ b/calendar.ur	Sat May 12 10:03:44 2012 -0400
@@ -130,7 +130,7 @@
                                                            Day = day}
                                        in
                                            cday <- SourceL.value t.Day;
-                                           return (if Record.equal thisDate cday then
+                                           return (if thisDate = cday then
                                                        <xml><td class={selday}>{[day]}</td></xml>
                                                    else case month of
                                                             This => <xml><td class={curday}