X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fparser%2FParser.y.pp;h=7e2a26189d919cba33d238d3a837bdd8ea93055d;hb=87998bebdee5e97a19c52a2e33cd394cdf9c0c57;hp=4a1519a47fbaa1027c873e1f229782f9b9f66975;hpb=84b434c5c07ce864353cdf9780873555daad3b47;p=ghc-hetmet.git

diff --git a/ghc/compiler/parser/Parser.y.pp b/ghc/compiler/parser/Parser.y.pp
index 4a1519a..7e2a261 100644
--- a/ghc/compiler/parser/Parser.y.pp
+++ b/ghc/compiler/parser/Parser.y.pp
@@ -458,17 +458,17 @@ tycl_decl :: { LTyClDecl RdrName }
 	| 'data' tycl_hdr constrs deriving
 		{ L (comb4 $1 $2 $3 $4)	-- We need the location on tycl_hdr 
 					-- in case constrs and deriving are both empty
-		    (mkTyData DataType $2 Nothing (reverse (unLoc $3)) (unLoc $4)) }
+		    (mkTyData DataType (unLoc $2) Nothing (reverse (unLoc $3)) (unLoc $4)) }
 
         | 'data' tycl_hdr opt_kind_sig 
 		 'where' gadt_constrlist
 		 deriving
 		{ L (comb4 $1 $2 $4 $5)
-		    (mkTyData DataType $2 $3 (reverse (unLoc $5)) (unLoc $6)) }
+		    (mkTyData DataType (unLoc $2) $3 (reverse (unLoc $5)) (unLoc $6)) }
 
 	| 'newtype' tycl_hdr '=' newconstr deriving
 		{ L (comb3 $1 $4 $5)
-		    (mkTyData NewType $2 Nothing [$4] (unLoc $5)) }
+		    (mkTyData NewType (unLoc $2) Nothing [$4] (unLoc $5)) }
 
 	| 'class' tycl_hdr fds where
 		{ let