[project @ 2001-04-02 21:11:14 by panne]

[ghc-hetmet.git] / ghc / tests / io / should_run / io019.hs

diff --git a/ghc/tests/io/should_run/io019.hs b/ghc/tests/io/should_run/io019.hs
index 039024f..ac2c72d 100644 (file)
--- a/ghc/tests/io/should_run/io019.hs
+++ b/ghc/tests/io/should_run/io019.hs
@@ -1,18 +1,18 @@
-
 import Time
 
-main = 
-    getClockTime                >>= \ time ->
-    print   (length (show time)) >>
-
+main :: IO ()
+main = do
+    time <- getClockTime
+    let l = length (show time)
+    print (l == 28 || l == 29) -- "CEST" vs "UTC" vs "GMT" vs...
     let (CalendarTime year month mday hour min sec psec 
                       wday yday timezone gmtoff isdst) = toUTCTime time
         time2 = wdays !! fromEnum wday ++
                (' ' : months !! fromEnum month) ++
                (' ' : shows2 mday (' ' : shows2 hour (':' : shows2 min (':' : shows2 sec
                (' ' : timezone ++ ' ' : shows year "\n")))))
-    in  
-    print (length time2)
+        l2 = length time2
+    print (l == 28 || l == 29)
 
   where
     wdays = ["Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"]