From a180093ae131228e438017c9a378ca4c2a4bcaaf Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 21 Sep 2001 13:24:37 +0000
Subject: [PATCH] [project @ 2001-09-21 13:24:37 by simonmar] oops, it might
 help to commit the same version of the file that I tested.

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

diff --git a/ghc/lib/std/System.lhs b/ghc/lib/std/System.lhs
index c5b6206..e237b19 100644
--- a/ghc/lib/std/System.lhs
+++ b/ghc/lib/std/System.lhs
@@ -1,5 +1,5 @@
 -- -----------------------------------------------------------------------------
--- $Id: System.lhs,v 1.34 2001/09/21 11:55:56 simonmar Exp $
+-- $Id: System.lhs,v 1.35 2001/09/21 13:24:37 simonmar Exp $
 --
 -- (c) The University of Glasgow, 1994-2000
 --
@@ -26,7 +26,6 @@ import PrelMarshalAlloc
 import PrelPtr
 import PrelStorable
 import PrelIOBase
-import PrelConc
 
 -- ---------------------------------------------------------------------------
 -- getArgs, getProgName, getEnv
@@ -39,7 +38,7 @@ getArgs =
   alloca $ \ p_argc ->  
   alloca $ \ p_argv -> do
    getProgArgv p_argc p_argv
-   p    <- peek p_argc
+   p    <- fromIntegral `liftM` peek p_argc
    argv <- peek p_argv
    peekArray (p - 1) (advancePtr argv 1) >>= mapM peekCString
    
-- 
1.7.10.4