testsuite/tests/th/T5290.stderr


1
2
3
4
5
6
7
8
9
10
11
12
13

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