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
d1dff94c
Commit
d1dff94c
authored
Feb 09, 2014
by
eir@cis.upenn.edu
Browse files
Test #7481, which had already been fixed.
parent
9e0c1ae5
Changes
3
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/polykinds/T7481.hs
0 → 100644
View file @
d1dff94c
{-# LANGUAGE DataKinds, PolyKinds, RankNTypes, GADTs #-}
module
T7481
where
import
Data.Proxy
data
D
a
where
D1
::
a
->
D
a
D2
::
(
a
~
Int
)
=>
D
a
D3
::
forall
(
a
::
k
)
b
.
Proxy
a
->
D
b
data
Foo
::
D
*
->
*
\ No newline at end of file
testsuite/tests/polykinds/T7481.stderr
0 → 100644
View file @
d1dff94c
T7481.hs:12:13:
‛D’ of kind ‛* -> *’ is not promotable
In the kind ‛D * -> *’
testsuite/tests/polykinds/all.T
View file @
d1dff94c
...
...
@@ -97,3 +97,4 @@ test('T8534', normal, compile, [''])
test
('
T8566
',
normal
,
compile_fail
,[''])
test
('
T8616
',
normal
,
compile_fail
,[''])
test
('
T8566a
',
expect_broken
(
8566
),
compile
,[''])
test
('
T7481
',
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