{-# 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.109 2002/08/29 15:44:15 simonmar Exp $
--
-- GHC Driver program
--
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
import Posix ( Handler(Catch), installHandler, sigINT, sigQUIT )
-import Dynamic ( toDyn )
+import DYNAMIC ( toDyn )
#endif
+-- Standard Haskell libraries
+import IO
+import Directory ( doesFileExist )
+import System ( getArgs, exitWith, ExitCode(..) )
+import Monad
+import List
+import Maybe
+
-----------------------------------------------------------------------------
-- ToDo: