X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FMain.hs;h=cf25bde3b8e6d22389047e7a5f1c6720c6534b4b;hb=4307f28b4d201d71a11dd304796ce7319fbb3345;hp=bbdd8f88e2837d0824e5a783842284ee702a0ca8;hpb=071c8bcdf514b746a4f015a02f2da92da7e4a5b7;p=ghc-hetmet.git diff --git a/ghc/compiler/main/Main.hs b/ghc/compiler/main/Main.hs index bbdd8f8..cf25bde 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.136 2003/11/01 01:01:18 sof Exp $ +-- $Id: Main.hs,v 1.137 2004/08/12 13:10:40 simonmar Exp $ -- -- GHC Driver program -- @@ -99,8 +99,7 @@ main = -- an IO exception probably isn't our fault, so don't panic IOException _ -> hPutStrLn stderr (show exception) AsyncException StackOverflow -> - hPutStrLn stderr "stack overflow: use +RTS -K \ - \to increase it" + hPutStrLn stderr "stack overflow: use +RTS -K to increase it" _other -> hPutStr stderr (show (Panic (show exception))) exitWith (ExitFailure 1) ) $ do