diff options
Diffstat (limited to 'compiler/parser/Parser.y')
-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 2b57b5a4c4..98d871442a 100644 --- a/compiler/parser/Parser.y +++ b/compiler/parser/Parser.y @@ -2385,10 +2385,10 @@ texp :: { LHsExpr RdrName } tup_exprs :: { [LHsTupArg RdrName] } : texp commas_tup_tail {% do { addAnnotation (gl $1) AnnComma (fst $2) - ; return ((L (gl $1) (Present $1)) : snd $2) } } + ; return ((sL1 $1 (Present $1)) : snd $2) } } | commas tup_tail - {% do { mapM_ (\ll -> addAnnotation (gl ll) AnnComma (gl ll)) $2 + {% do { mapM_ (\ll -> addAnnotation ll AnnComma ll) (fst $1) ; return (let tt = if null $2 then [noLoc missingTupArg] |