Skip to content
GitLab
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
a0934074
Commit
a0934074
authored
Oct 12, 2005
by
simonpj
Browse files
[project @ 2005-10-12 13:34:59 by simonpj]
Add a test for the unifyTyConApp bug
parent
4b9d1033
Changes
2
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/gadt/all.T
View file @
a0934074
...
...
@@ -9,6 +9,7 @@ test('gadt5', normal, compile_and_run, [''])
test
('
gadt6
',
normal
,
compile
,
[''])
test
('
gadt7
',
normal
,
compile_fail
,
[''])
test
('
gadt8
',
normal
,
compile
,
[''])
test
('
gadt9
',
normal
,
compile
,
[''])
test
('
gadt10
',
normal
,
compile_fail
,
[''])
test
('
gadt11
',
normal
,
compile_fail
,
[''])
test
('
red-black
',
normal
,
compile
,
[''])
...
...
testsuite/tests/ghc-regress/gadt/gadt9.hs
0 → 100644
View file @
a0934074
{-# OPTIONS -fglasgow-exts #-}
-- This one requires careful handling in
-- TcUnify.unifyTyConApp, to preserve rigidity.
module
ShouldCompile
where
data
X
a
b
where
X
::
X
a
a
data
Y
x
a
b
where
Y
::
x
a
b
->
x
b
c
->
Y
x
a
c
doy
::
Y
X
a
b
->
Y
X
a
b
doy
(
Y
X
X
)
=
Y
X
X
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