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
056dabee
Commit
056dabee
authored
Sep 30, 2008
by
chak@cse.unsw.edu.au.
Browse files
Type families: Tricky GADT/RankN/TF example
parent
2f5cacd8
Changes
2
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/indexed-types/should_compile/GADT14.hs
0 → 100644
View file @
056dabee
{-# LANGUAGE TypeFamilies, TypeOperators, GADTs, RankNTypes, FlexibleContexts #-}
module
Equality
(
(
:=:
),
eq_elim
,
eq_refl
)
where
data
a
:=:
b
where
EQUAL
::
a
:=:
a
eq_refl
::
a
:=:
a
eq_refl
=
EQUAL
eq_elim
::
(
a
~
b
)
=>
a
:=:
b
->
(
a
~
b
=>
p
)
->
p
eq_elim
EQUAL
p
=
p
testsuite/tests/ghc-regress/indexed-types/should_compile/all.T
View file @
056dabee
...
...
@@ -69,6 +69,7 @@ test('GADT10', expect_fail, compile, [''])
test
('
GADT11
',
normal
,
compile
,
[''])
test
('
GADT12
',
expect_fail
,
compile
,
[''])
test
('
GADT13
',
expect_fail
,
compile
,
[''])
test
('
GADT14
',
normal
,
compile
,
[''])
test
('
Class1
',
normal
,
compile
,
[''])
test
('
Class2
',
normal
,
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