[project @ 2000-04-25 11:27:35 by rrt]

[ghc-hetmet.git] / ghc / tests / io / should_run / io012.hs

diff --git a/ghc/tests/io/should_run/io012.hs b/ghc/tests/io/should_run/io012.hs
index 5b7fe9e..06114c6 100644 (file)
--- a/ghc/tests/io/should_run/io012.hs
+++ b/ghc/tests/io/should_run/io012.hs
@@ -1,10 +1,11 @@
-import IO -- 1.3
+-- !!! Test getCPUTime
+
+import IO
 
 import CPUTime
 
 main = do
-    h <- openFile "/dev/null" WriteMode
-    hPrint h (nfib 30)
+    print (nfib 30)
     t <- getCPUTime
     print (length (show t)) -- printing the CPU time itself is un-cool if you want to diff the output..