diff --git a/ghc/compiler/utils/Argv.lhs b/ghc/compiler/utils/Argv.lhs
deleted file mode 100644
index 0d6262abdb466e4489ad306d8d0c45aeab560b22..0000000000000000000000000000000000000000
--- 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}