X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fparser%2FParserCore.y;h=1039f8baf7915355b52982325ea8b26ae474fa27;hb=acc784b55045fe43b2d92efc992a4b888d96c682;hp=e4700ffc57593c8c1ae91def68d326f179365ad5;hpb=a32726a14f95b236413410bc6605f9e3cb6adae2;p=ghc-hetmet.git

diff --git a/ghc/compiler/parser/ParserCore.y b/ghc/compiler/parser/ParserCore.y
index e4700ff..1039f8b 100644
--- a/ghc/compiler/parser/ParserCore.y
+++ b/ghc/compiler/parser/ParserCore.y
@@ -25,7 +25,6 @@ import SrcLoc
 
 %token
  '%module'	{ TKmodule }
- '%import'	{ TKimport }
  '%data'	{ TKdata }
  '%newtype'	{ TKnewtype }
  '%forall'	{ TKforall }
@@ -65,15 +64,8 @@ import SrcLoc
 %%
 
 module	:: { RdrNameHsModule }
-	: '%module' modid imports tdefs vdefgs
-		{ HsModule $2 Nothing Nothing $3 ($4 ++ concat $5) Nothing noSrcLoc}
-
-imports :: { [ImportDecl RdrName] }
-        : {- empty -}     { [] }
-	| imp ';' imports { $1 : $3 }
-
-imp  :: { ImportDecl RdrName }
-        : '%import' modid { ImportDecl $2 ImportByUser True{-qual-} Nothing Nothing noSrcLoc }
+	: '%module' modid tdefs vdefgs
+		{ HsModule $2 Nothing Nothing [] ($3 ++ concat $4) Nothing noSrcLoc}
 
 tdefs	:: { [RdrNameHsDecl] }
 	: {- empty -}	{[]}