From 027168af50b6eee2ee043caf7a030d490b40967e Mon Sep 17 00:00:00 2001 From: simonmar Date: Tue, 5 Mar 2002 11:22:44 +0000 Subject: [PATCH] [project @ 2002-03-05 11:22:44 by simonmar] revert previous commit --- ghc/compiler/main/Main.hs | 10 ++++------ 1 file changed, 4 insertions(+), 6 deletions(-) diff --git a/ghc/compiler/main/Main.hs b/ghc/compiler/main/Main.hs index cc7e80f..ed21b0c 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.96 2002/03/04 17:01:30 simonmar Exp $ +-- $Id: Main.hs,v 1.97 2002/03/05 11:22:44 simonmar Exp $ -- -- GHC Driver program -- @@ -58,7 +58,8 @@ import Panic ( GhcException(..), panic ) import IO import Directory ( doesFileExist ) import IOExts ( readIORef, writeIORef ) -import Exception ( throwDyn, Exception(..) ) +import Exception ( throwDyn, Exception(..), + AsyncException(StackOverflow) ) import System ( getArgs, exitWith, ExitCode(..) ) import Monad import List @@ -107,10 +108,7 @@ main = case exception of -- an IO exception probably isn't our fault, so don't panic IOException _ -> hPutStr stderr (show exception) - AsyncException StackOverflow -> - hPutStrLn stderr "stack overflow: use +RTS -K \ - \to increase it" - _other -> hPutStr stderr (show (Panic (show exception))) + _other -> hPutStr stderr (show (Panic (show exception))) exitWith (ExitFailure 1) ) $ do -- 1.7.10.4