testsuite/tests/th/T5290.stderr


1
2
3
4
5
6
7
8
9

T5290.hs:(7,2)-(9,79): Splicing declarations
    let n = mkName "T"
    in
      return
        [DataD
           [] n [] Nothing
           [NormalC n [(Bang SourceUnpack SourceStrict, ConT ''Int)]] []]
  ======>
    data T = T {-# UNPACK #-} !Int