From 246250d7bd57de6645c13d2e1d1525c583a9d509 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Tue, 13 Mar 2007 14:46:14 +0000 Subject: [PATCH] fix #1200: don't evaluate the result of main --- utils/runghc/runghc.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/utils/runghc/runghc.hs b/utils/runghc/runghc.hs index 83163bd..cdf06dc 100644 --- a/utils/runghc/runghc.hs +++ b/utils/runghc/runghc.hs @@ -58,13 +58,17 @@ doIt ghc args = do "-ignore-dot-ghci" : ghc_args ++ [ "-e","System.Environment.withProgName "++show filename++" (System.Environment.withArgs [" ++ concat (intersperse "," (map show prog_args)) - ++ "] (GHC.TopHandler.runIOFastExit Main.main))", filename]) + ++ "] (GHC.TopHandler.runIOFastExit (Main.main Prelude.>> (Prelude.return ()))))", filename]) -- runIOFastExit: makes exceptions raised by Main.main -- behave in the same way as for a compiled program. -- The "fast exit" part just calls exit() directly -- instead of doing an orderly runtime shutdown, -- otherwise the main GHCi thread will complain about -- being interrupted. + -- + -- Why (main >> return ()) rather than just main? Because + -- otherwise GHCi by default tries to evaluate the result + -- of the IO in order to show it (see #1200). exitWith res notArg ('-':_) = False -- 1.7.10.4