Mercurial > urweb

diff lib/ur/datetime.ur @ 1973:155bd0bc4d28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Day of week functions.
author Patrick Hurst <phurst@mit.edu>
date Thu, 05 Dec 2013 11:36:54 -0500
parents 56c68443cb9d
children a10368c65e7f
line wrap: on
line diff
--- a/lib/ur/datetime.ur	Thu Dec 05 11:36:46 2013 -0500
+++ b/lib/ur/datetime.ur	Thu Dec 05 11:36:54 2013 -0500
@@ -7,6 +7,18 @@
      Second : int
 }
 
+datatype day_of_week = Sunday | Monday | Tuesday | Wednesday | Thursday |
+         Friday | Saturday
+
+val show = mkShow (fn dow => case dow of
+                                 Sunday => "Sunday"
+                               | Monday => "Monday"
+                               | Tuesday => "Tuesday"
+                               | Wednesday => "Wednesday"
+                               | Thursday => "Thursday"
+                               | Friday => "Friday"
+                               | Saturday => "Saturday")
+
 fun toTime dt : time = fromDatetime dt.Year dt.Month dt.Day
                                     dt.Hour dt.Minute dt.Second