Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
a7d9aa13
Commit
a7d9aa13
authored
Nov 06, 2013
by
Simon Peyton Jones
Browse files
Test Trac
#8499
parent
ac4a5e29
Changes
2
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/th/T8499.hs
0 → 100644
View file @
a7d9aa13
{-# LANGUAGE TemplateHaskell, PolyKinds, DataKinds #-}
{-# OPTIONS_GHC -Wall #-}
module
T8499
where
import
Language.Haskell.TH
$
(
do
TyConI
(
DataD
_
_
[
PlainTV
tvb_a
]
_
_
)
<-
reify
''Maybe
my_a
<-
newName
"a"
return
[
TySynD
(
mkName
"SMaybe"
)
[
KindedTV
my_a
(
AppT
(
ConT
''Maybe
)
(
VarT
tvb_a
))]
(
TupleT
0
)]
)
testsuite/tests/th/all.T
View file @
a7d9aa13
...
...
@@ -302,4 +302,5 @@ test('T4364', normal, compile, ['-v0'])
test
('
T8412
',
normal
,
compile_fail
,
['
-v0
'])
test
('
T7667
',
normal
,
compile
,
['
-v0
'])
test
('
T7667a
',
normal
,
compile_fail
,
['
-v0
'])
test
('
T8455
',
normal
,
compile
,
['
-v0
'])
\ No newline at end of file
test
('
T8455
',
normal
,
compile
,
['
-v0
'])
test
('
T8499
',
normal
,
compile
,
['
-v0
'])
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment