X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FMain.hs;h=8c55d4420e020de707fa8b2c6e7fcc4903c02bbd;hb=b3e4cb91c4386c4d1456b896da1abb964f2124a6;hp=d4b80952f13048735d6375279c13d73662dea0bb;hpb=9b6803a6ec263f81ecfadf303b7dba0d1cd5f97e;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/Main.hs b/ghc/compiler/main/Main.hs
index d4b8095..8c55d44 100644
--- a/ghc/compiler/main/Main.hs
+++ b/ghc/compiler/main/Main.hs
@@ -1,7 +1,7 @@
 {-# OPTIONS -fno-warn-incomplete-patterns -optc-DNON_POSIX_SOURCE #-}
 
 -----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.108 2002/07/06 10:14:31 chak Exp $
+-- $Id: Main.hs,v 1.110 2002/09/06 14:35:44 simonmar Exp $
 --
 -- GHC Driver program
 --
@@ -56,30 +56,36 @@ import Outputable
 import Util
 import Panic		( GhcException(..), panic )
 
--- Standard Haskell libraries
-import IO
-import Directory	( doesFileExist )
-import IOExts		( readIORef, writeIORef )
-import Exception	( throwDyn, Exception(..), 
+import DATA_IOREF	( readIORef, writeIORef )
+import EXCEPTION	( throwDyn, Exception(..), 
 			  AsyncException(StackOverflow) )
-import System		( getArgs, exitWith, ExitCode(..) )
-import Monad
-import List
-import Maybe
 
 #ifndef mingw32_HOST_OS
-import Concurrent	( myThreadId )
+import CONCURRENT	( myThreadId )
 # if __GLASGOW_HASKELL__ < 500
-import Exception        ( raiseInThread )
+import EXCEPTION        ( raiseInThread )
 #define throwTo  raiseInThread
 # else
-import Exception	( throwTo )
+import EXCEPTION	( throwTo )
 # endif
 
+#if __GLASGOW_HASKELL__ > 504
+import System.Posix.Signals
+#else
 import Posix		( Handler(Catch), installHandler, sigINT, sigQUIT )
-import Dynamic		( toDyn )
 #endif
 
+import DYNAMIC		( toDyn )
+#endif
+
+-- Standard Haskell libraries
+import IO
+import Directory	( doesFileExist )
+import System		( getArgs, exitWith, ExitCode(..) )
+import Monad
+import List
+import Maybe
+
 -----------------------------------------------------------------------------
 -- ToDo: