Commit b9cc1058 authored by pcapriotti's avatar pcapriotti

Add testcase for #5984

parent 02fb36f5
{-# LANGUAGE TemplateHaskell #-}
module T5984 where
import T5984_Lib
$nt
$dt
T5984.hs:1:1: Splicing declarations
nt
======>
T5984.hs:7:1-3
newtype Foo = Foo Int
T5984.hs:1:1: Splicing declarations
dt
======>
T5984.hs:8:1-3
data Bar = Bar Int
{-# 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"
......@@ -228,4 +228,5 @@ test('T5886', extra_clean(['T5886a.hi','T5886a.o']),
test('T4135', normal, compile, ['-v0'])
test('T5971', normal, compile_fail, ['-v0 -dsuppress-uniques'])
test('T5968', normal, compile, ['-v0'])
test('T5984', extra_clean(['T5984_Lib.hi', 'T5984_Lib.o']),
multimod_compile, ['T5984', '-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