From 6170d17e7f78171abf7aec1b2b40a7d9c4f6e508 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 11 Jan 2001 17:51:02 +0000
Subject: [PATCH] [project @ 2001-01-11 17:51:02 by simonmar] oops, I broke
 getArgs.  Unbreak it, and remove an unused import while I'm
 here.

---
 ghc/lib/std/System.lhs |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ghc/lib/std/System.lhs b/ghc/lib/std/System.lhs
index 8ae428c..26dd948 100644
--- a/ghc/lib/std/System.lhs
+++ b/ghc/lib/std/System.lhs
@@ -1,5 +1,5 @@
 % -----------------------------------------------------------------------------
-% $Id: System.lhs,v 1.28 2001/01/11 17:25:57 simonmar Exp $
+% $Id: System.lhs,v 1.29 2001/01/11 17:51:02 simonmar Exp $
 %
 % (c) The University of Glasgow, 1994-2000
 %
@@ -30,7 +30,6 @@ import PrelPtr
 import PrelStorable
 import PrelIOBase	( IOException(..), ioException, 
 			  IOErrorType(..), constructErrorAndFailWithInfo )
-import PrelByteArr	( ByteArray )
 \end{code}
 
 %*********************************************************
@@ -152,7 +151,8 @@ exitFailure = exitWith (ExitFailure 1)
 
 \begin{code}
 unpackArgv :: Ptr (Ptr CChar) -> Int -> IO [String] -- argv[1 .. argc-1]
-unpackArgv argv argc = peekArray argc argv >>= mapM peekCString
+unpackArgv argv argc
+  = peekArray (argc-1) (advancePtr argv 1) >>= mapM peekCString
 
 unpackProgName	:: Ptr (Ptr CChar) -> IO String   -- argv[0]
 unpackProgName argv = do 
-- 
1.7.10.4