[commit: ghc] master: Change wording of "main is not defined in Main" message (Trac #7816) (d6ceeaa)

[Simon Peyton Jones]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

https://github.com/ghc/ghc/commit/d6ceeaac137c3f4f2f23d244f395d7cdf5439397

>---------------------------------------------------------------

commit d6ceeaac137c3f4f2f23d244f395d7cdf5439397
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Apr 12 13:29:53 2013 +0100

    Change wording of "main is not defined in Main" message (Trac #7816)

>---------------------------------------------------------------

 compiler/typecheck/TcRnDriver.lhs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/typecheck/TcRnDriver.lhs b/compiler/typecheck/TcRnDriver.lhs
index 275ce07..15ccf57 100644
--- a/compiler/typecheck/TcRnDriver.lhs
+++ b/compiler/typecheck/TcRnDriver.lhs
@@ -1102,9 +1102,9 @@ check_main dflags tcg_env
 ppMainFn :: RdrName -> SDoc
 ppMainFn main_fn
   | main_fn == main_RDR_Unqual
-  = ptext (sLit "function") <+> quotes (ppr main_fn)
+  = ptext (sLit "IO action") <+> quotes (ppr main_fn)
   | otherwise
-  = ptext (sLit "main function") <+> quotes (ppr main_fn)
+  = ptext (sLit "main IO action") <+> quotes (ppr main_fn)
 
 -- | Get the unqualified name of the function to use as the \"main\" for the main module.
 -- Either returns the default name or the one configured on the command line with -main-is