Handle ANN pragmas in declaration splices

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. :(

Trac metadata

Trac field	Value
Version	7.8.3
Type	Bug
TypeOfFailure	OtherFailure
Priority	normal
Resolution	Unresolved
Component	Template Haskell
Test case
Differential revisions
BlockedBy
Related
Blocking
CC
Operating system
Architecture