From 584cbd4a19887497776ce1f61c15df652b8b2ea4 Mon Sep 17 00:00:00 2001 From: Simon Peyton Jones Date: Wed, 20 Dec 2017 15:36:49 +0000 Subject: Simplify HsPatSynDetails This is a pure refactoring. Use HsConDetails to implement HsPatSynDetails, instead of defining a whole new data type. Less code, fewer types, all good. --- compiler/parser/Parser.y | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'compiler/parser') diff --git a/compiler/parser/Parser.y b/compiler/parser/Parser.y index c920f0c6e4..d40b62b0f7 100644 --- a/compiler/parser/Parser.y +++ b/compiler/parser/Parser.y @@ -1375,9 +1375,9 @@ pattern_synonym_decl :: { LHsDecl GhcPs } }} pattern_synonym_lhs :: { (Located RdrName, HsPatSynDetails (Located RdrName), [AddAnn]) } - : con vars0 { ($1, PrefixPatSyn $2, []) } - | varid conop varid { ($2, InfixPatSyn $1 $3, []) } - | con '{' cvars1 '}' { ($1, RecordPatSyn $3, [moc $2, mcc $4] ) } + : con vars0 { ($1, PrefixCon $2, []) } + | varid conop varid { ($2, InfixCon $1 $3, []) } + | con '{' cvars1 '}' { ($1, RecCon $3, [moc $2, mcc $4] ) } vars0 :: { [Located RdrName] } : {- empty -} { [] } -- cgit v1.2.1