Commit 916214e4 authored by sof's avatar sof
Browse files

[project @ 2001-06-18 21:45:49 by sof]

For GHCen < 5.00, assume that Exception.throwTo is Exception.raiseInThread
parent ee439548
{-# OPTIONS -fno-warn-incomplete-patterns #-}
-----------------------------------------------------------------------------
-- $Id: Main.hs,v 1.73 2001/06/18 08:56:09 simonpj Exp $
-- $Id: Main.hs,v 1.74 2001/06/18 21:45:49 sof Exp $
--
-- GHC Driver program
--
......@@ -59,18 +59,23 @@ import Directory ( doesFileExist )
import IOExts ( readIORef, writeIORef )
import Exception ( throwDyn, Exception(DynException) )
import System ( getArgs, exitWith, ExitCode(..) )
import Monad
import List
import Maybe
#ifndef mingw32_TARGET_OS
import Concurrent ( myThreadId )
#ifdef __GLASGOW_HASKELL__ < 500
import Exception ( raiseInThread )
#define throwTo raiseInThread
#else
import Exception ( throwTo )
#endif
import Posix ( Handler(Catch), installHandler, sigINT, sigQUIT )
import Dynamic ( toDyn )
#endif
import Monad
import List
import Maybe
-----------------------------------------------------------------------------
-- Changes:
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment