rempve some unused files

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

diff --git a/ghc/misc/examples/io/io012/Main.hs b/ghc/misc/examples/io/io012/Main.hs
deleted file mode 100644 (file)
index c5a16b7..0000000
--- a/ghc/misc/examples/io/io012/Main.hs
+++ /dev/null
@@ -1,17 +0,0 @@
-import IO -- 1.3
-
-import CPUTime
-
-main = 
-    openFile "/dev/null" WriteMode >>= \ h ->
-    hPrint h (nfib 30) >>
-    getCPUTime >>= \ t ->
-    print t
-
-nfib :: Integer -> Integer
-nfib n 
-  | n <= 1 = 1
-  | otherwise = (n1 + n2 + 1)
-  where 
-    n1 = nfib (n-1) 
-    n2 = nfib (n-2)