X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fparser%2FParser.y;h=11dc6dc7a42f93046854971e1e94e0b140f1b957;hb=d28ba8c800901bea01f70c4719278c2a364cf9fc;hp=5ca2359585c9419859a49a60f9b063638fd1133f;hpb=dd6fe03634149bfb79aa1878114514806161947b;p=ghc-hetmet.git

diff --git a/ghc/compiler/parser/Parser.y b/ghc/compiler/parser/Parser.y
index 5ca2359..11dc6dc 100644
--- a/ghc/compiler/parser/Parser.y
+++ b/ghc/compiler/parser/Parser.y
@@ -1,6 +1,6 @@
 {-								-*-haskell-*-
 -----------------------------------------------------------------------------
-$Id: Parser.y,v 1.118 2003/05/19 15:10:40 simonpj Exp $
+$Id: Parser.y,v 1.119 2003/06/23 10:35:22 simonpj Exp $
 
 Haskell grammar.
 
@@ -265,19 +265,9 @@ REIFY_FIXITY	{ ITreifyFixity }
 
 module 	:: { RdrNameHsModule }
  	: srcloc 'module' modid maybemoddeprec maybeexports 'where' body 
-		{ HsModule (mkHomeModule $3) Nothing $5 (fst $7) (snd $7) $4 $1 }
+		{ HsModule (Just (mkHomeModule $3)) $5 (fst $7) (snd $7) $4 $1 }
 	| srcloc body
-		{ 	-- Behave as if we'd said 
-			--	module Main( main ) where ...
-		  let
-			main_RDR_Unqual = mkUnqual varName FSLIT("main")
-			-- We definitely don't want an Orig RdrName, because
-			-- main might, in principle, be imported into module Main
-		  in
-		  HsModule (mkHomeModule mAIN_Name) 
-			   Nothing 
-			   (Just [IEVar main_RDR_Unqual])
-			   (fst $2) (snd $2) Nothing $1 }
+		{ HsModule Nothing Nothing (fst $2) (snd $2) Nothing $1 }
 
 maybemoddeprec :: { Maybe DeprecTxt }
 	: '{-# DEPRECATED' STRING '#-}' 	{ Just $2 }