ApiAnnotations : pquals production adds AnnVbar in the wrong place

Summary:
The Parser.y production for pquals is

    pquals :: { Located [[LStmt RdrName (LHsExpr RdrName)]] }
        : squals '|' pquals
                         {% addAnnotation (gl $ last $ unLoc $1) AnnVbar (gl $2) >>
                            return (sLL $1 $> (reverse (unLoc $1) : unLoc $3)) }
        | squals         { L (getLoc $1) [reverse (unLoc $1)] }

The squals are returned in reverse order, so the AnnVbar should be
attached to the head of the list, not the last.

Test Plan: ./validate

Reviewers: hvr, austin

Reviewed By: austin

Subscribers: thomie, mpickering

Differential Revision: https://phabricator.haskell.org/D869

GHC Trac Issues: #10357

1 files changed, 30 insertions, 0 deletions

diff --git a/testsuite/tests/ghc-api/annotations/T10357.stderr b/testsuite/tests/ghc-api/annotations/T10357.stderr
new file mode 100644
index 0000000000..a418490766
--- /dev/null
+++ b/testsuite/tests/ghc-api/annotations/T10357.stderr
@@ -0,0 +1,30 @@
+
+Test10357.hs:4:13: error: Not in scope: ‘one’
+
+Test10357.hs:4:19: error: Not in scope: ‘x’
+
+Test10357.hs:5:7: error: Not in scope: ‘multPoly’
+
+Test10357.hs:6:10: error: Not in scope: ‘poly’
+
+Test10357.hs:6:15: error:
+    Not in scope: data constructor ‘LE’
+    Perhaps you meant ‘LT’ (imported from Prelude)
+
+Test10357.hs:7:10: error: Not in scope: ‘addPoly’
+
+Test10357.hs:7:19: error: Not in scope: ‘poly’
+
+Test10357.hs:7:24: error:
+    Not in scope: data constructor ‘LE’
+    Perhaps you meant ‘LT’ (imported from Prelude)
+
+Test10357.hs:7:43: error: Not in scope: ‘multPoly’
+
+Test10357.hs:8:19: error: Not in scope: ‘poly’
+
+Test10357.hs:8:24: error:
+    Not in scope: data constructor ‘LE’
+    Perhaps you meant ‘LT’ (imported from Prelude)
+
+Test10357.hs:8:43: error: Not in scope: ‘multPoly’