[GHC] #9738: Handle ANN pragmas in declaration splices

[GHC]

#9738: Handle ANN pragmas in declaration splices
-------------------------------------+-------------------------------------
       Reporter:  goldfire           |                   Owner:  goldfire
           Type:  bug                |                  Status:  new
       Priority:  normal             |               Milestone:  7.10.1
      Component:  Template Haskell   |                 Version:  7.8.3
       Keywords:                     |        Operating System:
   Architecture:  Unknown/Multiple   |  Unknown/Multiple
     Difficulty:  Unknown            |         Type of failure:
     Blocked By:                     |  None/Unknown
Related Tickets:                     |               Test Case:
                                     |                Blocking:
                                     |  Differential Revisions:
-------------------------------------+-------------------------------------
 If I say

 {{{
 $( do decs <- [d| data T = MkT
                   {-# ANN type T "hi!" #-}
                 |]
       runIO $ putStrLn $ pprint decs
       return decs )
 }}}

 I get

 {{{
 data T_0 = MkT_1
 }}}

 No `ANN`. :(

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