[project @ 1996-07-25 21:02:03 by partain]
[nofib.git] / GHC_ONLY / io019 / Main.hs
index 168a4ac..bd50838 100644 (file)
@@ -1,9 +1,8 @@
-import LibTime
+import Time
 
 main = 
     getClockTime >>= \ time ->
-    putText time >>
-    putChar '\n' >>
+    print   time >>
 
     let (CalendarTime year month mday hour min sec psec 
                       wday yday timezone gmtoff isdst) = toUTCTime time
@@ -20,4 +19,4 @@ main =
     shows2 x = showString (pad2 x)
     pad2 x = case show x of
                c@[_] -> '0' : c
-               cs -> cs
\ No newline at end of file
+               cs -> cs