6 let l = length (show time)
7 print (l == 28 || l == 29) -- "CEST" vs "UTC" vs "GMT" vs...
8 let (CalendarTime year month mday hour min sec psec
9 wday yday timezone gmtoff isdst) = toUTCTime time
10 time2 = wdays !! fromEnum wday ++
11 (' ' : months !! fromEnum month) ++
12 (' ' : shows2 mday (' ' : shows2 hour (':' : shows2 min (':' : shows2 sec
13 (' ' : timezone ++ ' ' : shows year "\n")))))
15 print (l == 28 || l == 29)
18 wdays = ["Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"]
19 months = ["Jan", "Feb", "Mar", "Apr", "May", "Jun",
20 "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"]
21 shows2 x = showString (pad2 x)
22 pad2 x = case show x of