X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fparser%2FParser.y;h=d82fe3f28521b82490198d00ef2a030696c6393b;hb=99073d876ea762016683fb0b22b9d343ff864eb4;hp=f228ea874bb9c2264239f8e79283df8d45438c9d;hpb=323fee1e8cbabe604496a1b92c6de0e98ca037e4;p=ghc-hetmet.git

diff --git a/ghc/compiler/parser/Parser.y b/ghc/compiler/parser/Parser.y
index f228ea8..d82fe3f 100644
--- a/ghc/compiler/parser/Parser.y
+++ b/ghc/compiler/parser/Parser.y
@@ -1,6 +1,6 @@
 {-
 -----------------------------------------------------------------------------
-$Id: Parser.y,v 1.42 2000/10/24 07:35:01 simonpj Exp $
+$Id: Parser.y,v 1.43 2000/10/24 08:40:10 simonpj Exp $
 
 Haskell grammar.
 
@@ -332,14 +332,12 @@ topdecl :: { RdrBinding }
 	| srcloc 'data' ctype '=' constrs deriving
 		{% checkDataHeader $3 `thenP` \(cs,c,ts) ->
 		   returnP (RdrHsDecl (TyClD
-		      (mkTyData DataType cs c ts (reverse $5) (length $5) $6
-			NoDataPragmas $1))) }
+		      (mkTyData DataType cs c ts (reverse $5) (length $5) $6 $1))) }
 
 	| srcloc 'newtype' ctype '=' newconstr deriving
 		{% checkDataHeader $3 `thenP` \(cs,c,ts) ->
 		   returnP (RdrHsDecl (TyClD
-		      (mkTyData NewType cs c ts [$5] 1 $6
-			NoDataPragmas $1))) }
+		      (mkTyData NewType cs c ts [$5] 1 $6 $1))) }
 
 	| srcloc 'class' ctype fds where
 		{% checkDataHeader $3 `thenP` \(cs,c,ts) ->
@@ -347,8 +345,7 @@ topdecl :: { RdrBinding }
 			(binds,sigs) = cvMonoBindsAndSigs cvClassOpSig (groupBindings $5) 
 		   in
 	 	   returnP (RdrHsDecl (TyClD
-		      (mkClassDecl cs c ts $4 sigs binds 
-			NoClassPragmas $1))) }
+		      (mkClassDecl cs c ts $4 sigs binds $1))) }
 
 	| srcloc 'instance' inst_type where
 		{ let (binds,sigs)