[project @ 1996-07-26 20:58:52 by partain]

[ghc-hetmet.git] / ghc / misc / examples / io / io020 / Main.hs

diff --git a/ghc/misc/examples/io/io020/Main.hs b/ghc/misc/examples/io/io020/Main.hs
index ff68bd9..1f349eb 100644 (file)
--- a/ghc/misc/examples/io/io020/Main.hs
+++ b/ghc/misc/examples/io/io020/Main.hs
@@ -1,4 +1,4 @@
-import LibTime
+import Time
 
 main = 
     getClockTime >>= \ time ->
@@ -7,7 +7,7 @@ main =
         time' = toClockTime (CalendarTime (year - 1) month mday hour min sec psec
                              wday yday timezone gmtoff isdst)
     in
-        putText time >>
+        print time >>
        putChar '\n' >>
-       putText time' >> 
+       print time' >> 
        putChar '\n'