diff options
| author | Paolo Capriotti <p.capriotti@gmail.com> | 2012-04-02 15:55:33 +0100 |
|---|---|---|
| committer | Paolo Capriotti <p.capriotti@gmail.com> | 2012-04-02 15:55:33 +0100 |
| commit | b9cc10584fc9f7806ea05f96d1dd1deb188c524a (patch) | |
| tree | 1b26d6e9452381115081adf1d043129bade994e2 /testsuite/tests/th/T5984_Lib.hs | |
| parent | 02fb36f5a28f2a1e38df7beacc65c0af82562e9a (diff) | |
| download | haskell-b9cc10584fc9f7806ea05f96d1dd1deb188c524a.tar.gz | |
Add testcase for #5984
Diffstat (limited to 'testsuite/tests/th/T5984_Lib.hs')
| -rw-r--r-- | testsuite/tests/th/T5984_Lib.hs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/testsuite/tests/th/T5984_Lib.hs b/testsuite/tests/th/T5984_Lib.hs new file mode 100644 index 0000000000..c3abfa21f9 --- /dev/null +++ b/testsuite/tests/th/T5984_Lib.hs @@ -0,0 +1,13 @@ +{-# LANGUAGE TemplateHaskell #-} + +module T5984_Lib where + +import Language.Haskell.TH + +nt :: Q [Dec] +nt = return [NewtypeD [] foo [] (NormalC foo [(NotStrict, ConT ''Int)]) []] + where foo = mkName "Foo" + +dt :: Q [Dec] +dt = return [DataD [] bar [] [NormalC bar [(NotStrict, ConT ''Int)]] []] + where bar = mkName "Bar" |