X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fparser%2FParser.y.pp;h=dc86c0040e74249e42162b21aa4c744ab655e61b;hp=4548221955cae3a88784f973e1162ab4974bd15e;hb=3734da50be1d8e1ddad5b5fe5c46fcfb3192d1da;hpb=3e0b6b2542d8464bfba365b97a6e4b95c3885f10

diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp
index 4548221..dc86c00 100644
--- a/compiler/parser/Parser.y.pp
+++ b/compiler/parser/Parser.y.pp
@@ -444,8 +444,7 @@ topdecls :: { OrdList (LHsDecl RdrName) }
 
 topdecl :: { OrdList (LHsDecl RdrName) }
   	: cl_decl			{ unitOL (L1 (TyClD (unLoc $1))) }
-  	| ty_decl			{% checkTopTypeD $1 >>=
-					   return.unitOL.L1 }
+  	| ty_decl			{ unitOL (L1 (TyClD (unLoc $1))) }
 	| 'instance' inst_type where
 		{ let (binds, sigs, ats) = cvBindsAndSigs (unLoc $3)
 		  in unitOL (L (comb3 $1 $2 $3)