[project @ 1997-09-05 14:11:05 by simonm]

[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 bd50838..219351b 100644 (file)
--- a/ghc/tests/io/should_run/io019.hs
+++ b/ghc/tests/io/should_run/io019.hs
@@ -7,8 +7,8 @@ main =
     let (CalendarTime year month mday hour min sec psec 
                       wday yday timezone gmtoff isdst) = toUTCTime time
     in
-      putStr (wdays !! wday) >>
-      putStr (' ' : months !! month) >>
+      putStr (wdays !! fromEnum wday) >>
+      putStr (' ' : months !! fromEnum month) >>
       putStr (' ' : shows2 mday (' ' : shows2 hour (':' : shows2 min (':' : shows2 sec
              (' ' : timezone ++ ' ' : shows year "\n")))))