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
f76d68d3
Commit
f76d68d3
authored
Oct 03, 2013
by
eir@cis.upenn.edu
Committed by
Krzysztof Gogolewski
Oct 03, 2013
Browse files
New tests for #8368.
parent
80d2a085
Changes
5
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/indexed-types/should_fail/T8368.hs
0 → 100644
View file @
f76d68d3
{-# LANGUAGE TypeFamilies, GADTs #-}
module
T8368
where
data
Foo
=
Bar
data
family
Fam
a
data
instance
Fam
a
where
MkFam
::
Foo
\ No newline at end of file
testsuite/tests/indexed-types/should_fail/T8368.stderr
0 → 100644
View file @
f76d68d3
T8368.hs:9:3:
Data constructor ‛MkFam’ returns type ‛Foo’
instead of an instance of its parent type ‛Fam’
In the definition of data constructor ‛MkFam’
In the data instance declaration for ‛Fam’
testsuite/tests/indexed-types/should_fail/T8368a.hs
0 → 100644
View file @
f76d68d3
{-# LANGUAGE TypeFamilies, GADTs #-}
module
T8368a
where
data
family
Fam
a
b
data
instance
Fam
Int
b
where
MkFam
::
Fam
Bool
b
\ No newline at end of file
testsuite/tests/indexed-types/should_fail/T8368a.stderr
0 → 100644
View file @
f76d68d3
T8368a.hs:7:3:
Data constructor ‛MkFam’ returns type ‛Fam Bool b’
instead of an instance of its parent type ‛Fam Int b’
In the definition of data constructor ‛MkFam’
In the data instance declaration for ‛Fam’
testsuite/tests/indexed-types/should_fail/all.T
View file @
f76d68d3
...
...
@@ -116,3 +116,5 @@ test('T8129',
run_command
,
['
$MAKE -s --no-print-directory T8129
'])
test
('
T8368
',
normal
,
compile_fail
,
[''])
test
('
T8368a
',
normal
,
compile_fail
,
[''])
\ 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