From: simonpj <unknown>
Date: Mon, 23 May 2005 09:56:17 +0000 (+0000)
Subject: [project @ 2005-05-23 09:56:17 by simonpj]
X-Git-Tag: Initial_conversion_from_CVS_complete~490
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=487920aa093f16a86b64c1c9cb0c65444102b195;p=ghc-hetmet.git

[project @ 2005-05-23 09:56:17 by simonpj]
Comments and type sig only
---

diff --git a/ghc/compiler/typecheck/TcRnDriver.lhs b/ghc/compiler/typecheck/TcRnDriver.lhs
index 0dfd197..022750a 100644
--- a/ghc/compiler/typecheck/TcRnDriver.lhs
+++ b/ghc/compiler/typecheck/TcRnDriver.lhs
@@ -729,6 +729,8 @@ tcTopSrcDecls boot_details
 %************************************************************************
 
 \begin{code}
+checkMain :: TcM TcGblEnv
+-- If we are in module Main, check that 'main' is defined.
 checkMain 
   = do { ghci_mode <- getGhciMode ;
 	 tcg_env   <- getGblEnv ;
@@ -745,11 +747,6 @@ checkMain
 
 
 check_main ghci_mode tcg_env main_mod main_fn
-     -- If we are in module Main, check that 'main' is defined.
-     -- It may be imported from another module!
-     --
-     -- 
-     -- Blimey: a whole page of code to do this...
  | mod /= main_mod
  = return tcg_env