diff options
| author | Ian Lynagh <igloo@earth.li> | 2011-07-19 20:58:39 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2011-07-19 20:58:39 +0100 |
| commit | d6b1a57f91dfd159cd1397fb8af13b20d7abbee6 (patch) | |
| tree | 862b43f13c8c05d0659d8a9f347fab2dcdfcb8df /testsuite | |
| parent | 487c80bed384dee7f6cf9d582f730b7449c64b54 (diff) | |
| download | haskell-d6b1a57f91dfd159cd1397fb8af13b20d7abbee6.tar.gz | |
Add a test for #5332 (unboxed singleton tuples and TH)
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/ghc-regress/th/TH_unboxedSingleton.hs | 7 | ||||
| -rw-r--r-- | testsuite/tests/ghc-regress/th/all.T | 2 |
2 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/tests/ghc-regress/th/TH_unboxedSingleton.hs b/testsuite/tests/ghc-regress/th/TH_unboxedSingleton.hs new file mode 100644 index 0000000000..d932285870 --- /dev/null +++ b/testsuite/tests/ghc-regress/th/TH_unboxedSingleton.hs @@ -0,0 +1,7 @@ +{-# LANGUAGE TemplateHaskell, UnboxedTuples #-} + +module TH_unboxedSingleton where + +f :: () -> (# Int #) +f () = $( [| (# 3 #) |] ) + diff --git a/testsuite/tests/ghc-regress/th/all.T b/testsuite/tests/ghc-regress/th/all.T index 47ac833374..7ca7f09223 100644 --- a/testsuite/tests/ghc-regress/th/all.T +++ b/testsuite/tests/ghc-regress/th/all.T @@ -181,3 +181,5 @@ test('T4949', normal, compile, ['-v0']) test('T5126', normal, compile, ['-v0']) test('T5217', normal, compile, ['-v0 -dsuppress-uniques -ddump-splices']) test('T5037', normal, compile, ['-v0']) +test('TH_unboxedSingleton', normal, compile, ['-v0']) + |