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
3101e9eb
Commit
3101e9eb
authored
Oct 01, 2008
by
chak@cse.unsw.edu.au.
Browse files
GADTs/TFs: Added T2151 & TF's Simple14 passes
parent
80349a8f
Changes
3
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/gadt/T2151.hs
0 → 100644
View file @
3101e9eb
{-# LANGUAGE GADTs #-}
module
T2151
where
data
Type
a
where
Func
::
Type
a
->
Type
b
->
Type
(
a
->
b
)
PF
::
Type
a
->
Type
(
PF
a
)
data
PF
a
where
ID
::
PF
(
a
->
a
)
test
::
Type
a
->
a
->
a
test
(
PF
(
Func
_
_
))
ID
=
ID
testsuite/tests/ghc-regress/gadt/all.T
View file @
3101e9eb
...
...
@@ -95,3 +95,4 @@ test('T1999a', normal, compile, [''])
test
('
T2587
',
normal
,
compile
,
[''])
test
('
T2040
',
normal
,
compile
,
[''])
test
('
T2151
',
normal
,
compile
,
[''])
testsuite/tests/ghc-regress/indexed-types/should_compile/all.T
View file @
3101e9eb
...
...
@@ -14,7 +14,7 @@ test('Simple10', normal, compile, [''])
test
('
Simple11
',
normal
,
compile
,
[''])
test
('
Simple12
',
normal
,
compile
,
[''])
test
('
Simple13
',
expect_fail
,
compile
,
[''])
test
('
Simple14
',
expect_fai
l
,
compile
,
[''])
test
('
Simple14
',
norma
l
,
compile
,
[''])
test
('
Simple15
',
normal
,
compile
,
[''])
test
('
Simple16
',
normal
,
compile
,
[''])
test
('
Simple17
',
expect_fail
,
compile
,
[''])
...
...
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