Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Fumiaki Kinoshita
GHC
Commits
f0f46826
Commit
f0f46826
authored
Nov 22, 2016
by
Simon Peyton Jones
Browse files
Test Trac #12867
parent
c1b4b769
Changes
3
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/indexed-types/should_fail/T12867.hs
0 → 100644
View file @
f0f46826
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE ConstraintKinds #-}
{-# LANGUAGE FlexibleContexts #-}
module
T12866
where
type
Test2
a
=
(
Eq
(
TestM
a
))
class
Test
a
where
type
TestM
::
*
testsuite/tests/indexed-types/should_fail/T12867.stderr
0 → 100644
View file @
f0f46826
T12867.hs:7:21: error:
• Expecting one fewer arguments to ‘TestM’
Expected kind ‘k0 -> *’, but ‘TestM’ has kind ‘*’
• In the first argument of ‘Eq’, namely ‘TestM a’
In the type ‘Eq (TestM a)’
In the type declaration for ‘Test2’
T12867.hs:9:1: error:
• The associated type ‘TestM’
mentions none of the type or kind variables of the class ‘Test a’
• In the class declaration for ‘Test’
testsuite/tests/indexed-types/should_fail/all.T
View file @
f0f46826
...
...
@@ -139,3 +139,4 @@ test('T7788', normal, compile_fail, [''])
test
('
T11450
',
normal
,
compile_fail
,
[''])
test
('
T12041
',
normal
,
compile_fail
,
[''])
test
('
T12522a
',
normal
,
compile_fail
,
[''])
test
('
T12867
',
normal
,
compile_fail
,
[''])
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