diff options
author | Adam Chlipala <adam@chlipala.net> | 2019-08-10 13:02:21 -0400 |
---|---|---|
committer | Adam Chlipala <adam@chlipala.net> | 2019-08-10 13:02:21 -0400 |
commit | 52eb84c63a458e2a042c8fe451e96a11fdaeb4ed (patch) | |
tree | 4016c5954628f8d1ed11249c09f0fdbc7419d33f /lib/ur/datetime.ur | |
parent | 6273c4602a8103f23856616966c34721ad726d3e (diff) |
Datetime.ord_month
Diffstat (limited to 'lib/ur/datetime.ur')
-rw-r--r-- | lib/ur/datetime.ur | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/ur/datetime.ur b/lib/ur/datetime.ur index 9aeab291..99fd5a7d 100644 --- a/lib/ur/datetime.ur +++ b/lib/ur/datetime.ur @@ -88,7 +88,8 @@ fun intToMonth i = case i of | n => error <xml>Invalid month number {[n]}</xml> val eq_month = mkEq (fn a b => monthToInt a = monthToInt b) - +val ord_month = mkOrd {Lt = fn a b => monthToInt a < monthToInt b, + Le = fn a b => monthToInt a <= monthToInt b} fun toTime dt : time = fromDatetime dt.Year (monthToInt dt.Month) dt.Day dt.Hour dt.Minute dt.Second |