X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Flib%2Fstd%2FSystem.lhs;h=040449262051fe072a4b5b0b65b0ce4ab0732cd2;hb=674ad01f5f5edcc20e3fee4e5f39a2d8388120a3;hp=ab4f9d9251676e2895eb6a8b2983018d1813c091;hpb=7bc3ecec5e8c39c61413c1d00cd920ebd3bd6308;p=ghc-hetmet.git

diff --git a/ghc/lib/std/System.lhs b/ghc/lib/std/System.lhs
index ab4f9d9..0404492 100644
--- a/ghc/lib/std/System.lhs
+++ b/ghc/lib/std/System.lhs
@@ -188,22 +188,21 @@ unpackProgName argv
 --
 -- Suitable for use with Hugs 98
 -----------------------------------------------------------------------------
-import Prelude
-import privileged Prelude ( primGetRawArgs
-			  , primGetEnv
-			  , prelCleanupAfterRunAction
-			  , copy_String_to_cstring
-			  , readIORef
-			  , nh_stderr
-			  , nh_stdout
-			  , nh_stdin 
-			  , nh_exitwith 
-			  , nh_flush
-			  , nh_close
-			  , nh_system
-			  , nh_free
-			  , nh_getPID
-			  )
+import PrelPrim ( primGetRawArgs
+		, primGetEnv
+		, prelCleanupAfterRunAction
+		, copy_String_to_cstring
+		, readIORef
+		, nh_stderr
+		, nh_stdout
+		, nh_stdin 
+		, nh_exitwith 
+		, nh_flush
+		, nh_close
+		, nh_system
+		, nh_free
+		, nh_getPID
+		)
 
 
 data ExitCode = ExitSuccess | ExitFailure Int
@@ -211,7 +210,7 @@ data ExitCode = ExitSuccess | ExitFailure Int
 
 getArgs                     :: IO [String]
 getArgs                      = primGetRawArgs >>= \rawargs ->
-                               return (drop 1 (dropWhile (/= "--") rawargs))
+                               return (tail rawargs)
 
 getProgName                 :: IO String
 getProgName                  = primGetRawArgs >>= \rawargs ->