X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fparser%2FParserCore.y;h=a6ee5ddc89864f9330232b902068c64ca69c055f;hp=b24ec2e9d7cb810fcf997e18865881b06efc34fc;hb=afef39736dcde6f4947a6f362f9e6b3586933db4;hpb=819d8189dddeb05e881bc641f0a6ab2cd14ee1ad

diff --git a/compiler/parser/ParserCore.y b/compiler/parser/ParserCore.y
index b24ec2e..a6ee5dd 100644
--- a/compiler/parser/ParserCore.y
+++ b/compiler/parser/ParserCore.y
@@ -88,10 +88,18 @@ tdefs	:: { [TyClDecl RdrName] }
 
 tdef	:: { TyClDecl RdrName }
 	: '%data' q_tc_name tv_bndrs '=' '{' cons '}'
-                { mkTyData DataType (noLoc [], noLoc (ifaceExtRdrName $2), map toHsTvBndr $3) Nothing $6 Nothing }
+                { mkTyData DataType ( noLoc []
+				    , noLoc (ifaceExtRdrName $2)
+				    , map toHsTvBndr $3
+				    , Nothing
+				    ) Nothing $6 Nothing }
 	| '%newtype' q_tc_name tv_bndrs trep 
 		{ let tc_rdr = ifaceExtRdrName $2 in
-                  mkTyData NewType (noLoc [], noLoc tc_rdr, map toHsTvBndr $3) Nothing ($4 (rdrNameOcc tc_rdr)) Nothing }
+                  mkTyData NewType ( noLoc []
+				   , noLoc tc_rdr
+				   , map toHsTvBndr $3
+				   , Nothing
+				   ) Nothing ($4 (rdrNameOcc tc_rdr)) Nothing }
 
 -- For a newtype we have to invent a fake data constructor name
 -- It doesn't matter what it is, because it won't be used