diff options
| author |  Simon Van Casteren <simonvancasteren@localhost.localdomain> | 2019-12-13 11:46:22 +0100 |
|---|---|---|
| committer | Simon Van Casteren <simonvancasteren@localhost.localdomain> | 2019-12-13 11:46:22 +0100 |
| commit | 34bb8fae33a75868060838cda98bb46e0257ca0c (patch) | |
| tree | c6c5c4dfbcc49444f14be479cf2d7e6501203878 /lib/ur/datetime.ur | |
| parent | 870ce334b835614bab3f114b2aa57617f699c6be (diff) | |
| parent | 2bca6e48c0ea8043c5300f4ebdefa5167e6472bf (diff) | |
Merge remote-tracking branch 'origin/master' into typeOf
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 |