[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / lib / System / getArgs001.hs

diff --git a/ghc/tests/lib/System/getArgs001.hs b/ghc/tests/lib/System/getArgs001.hs
deleted file mode 100644 (file)
index 93fff71..0000000
--- a/ghc/tests/lib/System/getArgs001.hs
+++ /dev/null
@@ -1,9 +0,0 @@
-import System (getProgName, getArgs)
-
-main = 
-    getProgName >>= \ argv0 ->
-    putStr argv0 >>
-    getArgs >>= \ argv ->
-    sequence (map (\ x -> putChar ' ' >> putStr x) argv) >>
-    putChar '\n'
-