[GHC] #10214: parser: TransStmt has incorrect SrcSpan

[GHC]

#10214: parser: TransStmt has incorrect SrcSpan
-------------------------------------+-------------------------------------
              Reporter:  mpickering  |             Owner:
                  Type:  bug         |            Status:  new
              Priority:  normal      |         Milestone:
             Component:  Compiler    |           Version:  7.10.1
  (Parser)                           |  Operating System:  Unknown/Multiple
              Keywords:              |   Type of failure:  Other
  ApiAnnotations                     |        Blocked By:
          Architecture:              |   Related Tickets:
  Unknown/Multiple                   |
             Test Case:              |
              Blocking:              |
Differential Revisions:              |
-------------------------------------+-------------------------------------
 The production for `squals` is.

 {{{#!hs
 squals :: { Located [LStmt RdrName (LHsExpr RdrName)] }   -- In reverse
 order, because the last
                                         -- one can "grab" the earlier ones
     : squals ',' transformqual
              {% addAnnotation (gl $ last $ unLoc $1) AnnComma (gl $2) >>
                 return (sLL $1 $> [L (getLoc $3) ((unLoc $3) (reverse
 (unLoc $1)))]) }
 }}}

 The location of the whole statement is set to that `transformqual` when it
 fact it should encompass the whole production.

--
Ticket URL: <http://ghc.haskell.org/trac/ghc/ticket/10214>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler