From: sewardj <unknown>
Date: Fri, 27 Oct 2000 09:36:39 +0000 (+0000)
Subject: [project @ 2000-10-27 09:36:39 by sewardj]
X-Git-Tag: Approximately_9120_patches~3497
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=be29432233ace5d252578604764d0545af613646;p=ghc-hetmet.git

[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
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}