[project @ 2000-07-11 12:17:02 by rrt]

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

diff --git a/ghc/tests/io/should_run/io020.hs b/ghc/tests/io/should_run/io020.hs
index 1f349eb..83c5786 100644 (file)
--- a/ghc/tests/io/should_run/io020.hs
+++ b/ghc/tests/io/should_run/io020.hs
@@ -7,7 +7,7 @@ main =
         time' = toClockTime (CalendarTime (year - 1) month mday hour min sec psec
                              wday yday timezone gmtoff isdst)
     in
-        print time >>
+        print (length (show time)) >>
        putChar '\n' >>
-       print time' >> 
+       print (length (show time')) >> 
        putChar '\n'