[project @ 2000-10-27 09:36:39 by sewardj]

No longer needed.  Bye bye Argv!

diff --git a/ghc/compiler/utils/Argv.lhs b/ghc/compiler/utils/Argv.lhs
deleted file mode 100644 (file)
index 0d6262a..0000000
--- a/ghc/compiler/utils/Argv.lhs
+++ /dev/null
@@ -1,34 +0,0 @@
-%
-% (c) The AQUA Project, Glasgow University, 1996-1998
-%
-\section[Argv]{@Argv@: direct (non-standard) access to command-line arguments}
-
-\begin{code}
-module Argv ( argv ) where
-
-#include "HsVersions.h"
-
-import FastString
-
-#if __GLASGOW_HASKELL__ <= 302
-import GlaExts         ( Addr )
-import ByteArray       ( indexAddrOffAddr )
-#else
-import Addr            ( Addr, indexAddrOffAddr )
-#endif
-
-argv :: [FAST_STRING]
-argv = unpackArgv ``prog_argv'' (``prog_argc''::Int)
-
-unpackArgv :: Addr -> Int -> [FAST_STRING] -- argv[1 .. argc-1]
-
-unpackArgv argv argc = unpack 1
-  where
-    unpack :: Int -> [FAST_STRING]
-    unpack n
-      | n >= argc = []
-      | otherwise =
-        case (indexAddrOffAddr argv n) of 
-          item -> mkFastCharString item : unpack (n + 1)
-
-\end{code}