diff options
Diffstat (limited to 'compiler/parser')
| -rw-r--r-- | compiler/parser/Parser.y | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/parser/Parser.y b/compiler/parser/Parser.y index b0b64aea5c..e8d60ec611 100644 --- a/compiler/parser/Parser.y +++ b/compiler/parser/Parser.y @@ -1194,8 +1194,8 @@ where_decls :: { Located ([AddAnn] ,sL1 $3 (snd $ unLoc $3)) } pattern_synonym_sig :: { LSig RdrName } - : 'pattern' con '::' sigtype - {% ams (sLL $1 $> $ PatSynSig $2 (mkLHsSigType $4)) + : 'pattern' con_list '::' sigtype + {% ams (sLL $1 $> $ PatSynSig (unLoc $2) (mkLHsSigType $4)) [mj AnnPattern $1, mu AnnDcolon $3] } ----------------------------------------------------------------------------- |