Fix #11287.
[ghc.git] / testsuite / tests / th / T5984_Lib.hs
1 {-# LANGUAGE TemplateHaskell #-}
2
3 module T5984_Lib where
4
5 import Language.Haskell.TH
6
7 nt :: Q [Dec]
8 nt = return [NewtypeD [] foo [] Nothing (NormalC foo
9 [(Bang NoSourceUnpackedness NoSourceStrictness, ConT ''Int)]) []]
10 where foo = mkName "Foo"
11
12 dt :: Q [Dec]
13 dt = return [DataD [] bar [] Nothing [NormalC bar
14 [(Bang NoSourceUnpackedness NoSourceStrictness, ConT ''Int)]] []]
15 where bar = mkName "Bar"