rempve some unused files

[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
deleted file mode 100644 (file)
index 1f349eb..0000000
--- a/ghc/misc/examples/io/io020/Main.hs
+++ /dev/null
@@ -1,13 +0,0 @@
-import Time
-
-main = 
-    getClockTime >>= \ time ->
-    let (CalendarTime year month mday hour min sec psec 
-                      wday yday timezone gmtoff isdst) = toUTCTime time
-        time' = toClockTime (CalendarTime (year - 1) month mday hour min sec psec
-                             wday yday timezone gmtoff isdst)
-    in
-        print time >>
-       putChar '\n' >>
-       print time' >> 
-       putChar '\n'