Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
7245b3e4
Commit
7245b3e4
authored
Oct 14, 2013
by
eir@cis.upenn.edu
Committed by
Krzysztof Gogolewski
Oct 15, 2013
Browse files
Added test for #7667.
parent
081dd696
Changes
2
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/th/T7667.hs
0 → 100644
View file @
7245b3e4
{-# LANGUAGE TemplateHaskell, TypeOperators #-}
module
T7667
where
import
Language.Haskell.TH
$
(
return
[
TySynD
(
mkName
"+"
)
[
PlainTV
(
mkName
"a"
),
PlainTV
(
mkName
"b"
)]
(
AppT
(
AppT
(
ConT
''Either
)
(
VarT
$
mkName
"a"
))
(
VarT
$
mkName
"b"
))
]
)
\ No newline at end of file
testsuite/tests/th/all.T
View file @
7245b3e4
...
...
@@ -300,3 +300,4 @@ test('T4128', normal, compile, ['-v0'])
test
('
T6062
',
normal
,
compile
,
['
-v0
'])
test
('
T4364
',
normal
,
compile
,
['
-v0
'])
test
('
T8412
',
normal
,
compile_fail
,
['
-v0
'])
test
('
T7667
',
normal
,
compile
,
['
-v0
'])
\ No newline at end of file
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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