Commit d6b1a57f authored by Ian Lynagh's avatar Ian Lynagh

Add a test for #5332 (unboxed singleton tuples and TH)

parent 487c80be
{-# LANGUAGE TemplateHaskell, UnboxedTuples #-}
module TH_unboxedSingleton where
f :: () -> (# Int #)
f () = $( [| (# 3 #) |] )
......@@ -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'])
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment