summaryrefslogtreecommitdiff
path: root/compiler/parser/Parser.y
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/parser/Parser.y')
-rw-r--r--compiler/parser/Parser.y4
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]