[GHC] #14471: Certain do blocks cause TH to barf when ApplicativeDo is enabled

[GHC]

#14471: Certain do blocks cause TH to barf when ApplicativeDo is enabled
-------------------------------------+-------------------------------------
        Reporter:  lexi.lambda       |                Owner:  mgsloan
            Type:  bug               |               Status:  patch
        Priority:  normal            |            Milestone:
       Component:  Template Haskell  |              Version:  8.2.1
      Resolution:                    |             Keywords:  ApplicativeDo
Operating System:  Unknown/Multiple  |         Architecture:
 Type of failure:  Compile-time      |  Unknown/Multiple
  crash or panic                     |            Test Case:  th/T14471
      Blocked By:                    |             Blocking:
 Related Tickets:                    |  Differential Rev(s):  Phab:D4912
       Wiki Page:                    |
-------------------------------------+-------------------------------------

Comment (by Ben Gamari <ben@…>):

 In [changeset:"234093cf1562d032b38382a5cc08be8dd71c4fe3/ghc"
 234093cf/ghc]:
 {{{
 #!CommitTicketReference repository="ghc"
 revision="234093cf1562d032b38382a5cc08be8dd71c4fe3"
 Fix handling of ApplicativeDo in TH AST quotes

 See https://ghc.haskell.org/trac/ghc/ticket/14471

 Also fixes a parenthesization bug in pprStmt when ret_stripped is True

 Test Plan: tests added to testsuite

 Trac issues: #14471

 Reviewers: goldfire, bgamari

 Reviewed By: goldfire

 Subscribers: rwbarton, thomie, carter

 Differential Revision: https://phabricator.haskell.org/D4912
 }}}

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