[project @ 2000-04-04 02:20:30 by andy]

[ghc-hetmet.git] / ghc / lib / std / System.lhs

diff --git a/ghc/lib/std/System.lhs b/ghc/lib/std/System.lhs
index ab4f9d9..5550e6d 100644 (file)
--- 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 PrimPrel ( 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