diff options
Diffstat (limited to 'compiler/parser/ParserCore.y')
| -rw-r--r-- | compiler/parser/ParserCore.y | 12 |
1 files changed, 10 insertions, 2 deletions
diff --git a/compiler/parser/ParserCore.y b/compiler/parser/ParserCore.y index b24ec2e9d7..a6ee5ddc89 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 |