blob: d8913cd8f3d0326c99cb3570074a7d47ae32d6e3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
{-# LANGUAGE TemplateHaskell #-}
module T5984_Lib where
import Language.Haskell.TH
nt :: Q [Dec]
nt = return [NewtypeD [] foo [] Nothing (NormalC foo
[(Bang NoSourceUnpackedness NoSourceStrictness, ConT ''Int)]) []]
where foo = mkName "Foo"
dt :: Q [Dec]
dt = return [DataD [] bar [] Nothing [NormalC bar
[(Bang NoSourceUnpackedness NoSourceStrictness, ConT ''Int)]] []]
where bar = mkName "Bar"
|
