Commit 3cd7b401 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test Trac #5290

parent bf4b8258
{-# LANGUAGE TemplateHaskell #-}
module T5290 where
import Language.Haskell.TH
$( let n = mkName "T"
in return [DataD [] n [] [NormalC n [(Unpacked,ConT ''Int)]] []] )
T5290.hs:1:1: Splicing declarations
let n = mkName "T"
in return [DataD [] n [] [NormalC n [(Unpacked, ConT 'Int)]] []]
======>
T5290.hs:(7,4)-(8,67)
data T = T {-# UNPACK #-} !Int
......@@ -182,4 +182,5 @@ 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'])
test('T5290', normal, compile, ['-v0 -ddump-splices'])
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