Commit d359e63e authored by sof's avatar sof
Browse files

[project @ 1999-09-12 14:39:50 by sof]

parent 5740c0e1
......@@ -376,7 +376,7 @@ toCalendarTime (TOD (J# s# d#) psec) = do
wday <- _casm_ ``%r = ((struct tm *)%0)->tm_wday;'' tm
yday <- _casm_ ``%r = ((struct tm *)%0)->tm_yday;'' tm
isdst <- _casm_ ``%r = ((struct tm *)%0)->tm_isdst;'' tm
zone <- _ccall_ ZONE tm
zone <- _ccall_ get_ZONE tm
tz <- _ccall_ GMTOFF tm
let tzname = unpackCString zone
return (CalendarTime (1900+year) mon mday hour min sec psec
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment