Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Shayne Fletcher
Glasgow Haskell Compiler
Commits
86e50eb6
Commit
86e50eb6
authored
Nov 19, 2007
by
simonpj
Browse files
Test for Trac #959
parent
2cb2c7bf
Changes
3
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/typecheck/should_fail/all.T
View file @
86e50eb6
...
...
@@ -176,3 +176,4 @@ test('tcfail186',
extra_clean
(['
Tcfail186_Help.hi
',
'
Tcfail186_Help.o
']),
multimod_compile_fail
,
['
tcfail186
',
'
-v0
'])
test
('
tcfail187
',
normal
,
compile_fail
,
[''])
test
('
tcfail188
',
normal
,
compile_fail
,
[''])
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail188.hs
0 → 100644
View file @
86e50eb6
{-# OPTIONS_GHC -Werror -fglasgow-exts #-}
-- Trac #959
module
ShouldFail
where
data
D
(
f
::
(
*
->
*
)
->
*
->
*
)
(
af
::
*
->
*
)
(
ax
::
*
)
=
D
(
af
(
f
af
ax
))
data
CList
(
f
::
(
*
->
*
)
->
*
->
*
)
(
a
::
*
)
=
RCons
a
(
CList
(
D
f
)
a
)
type
CycleList
a
=
forall
f
.
CList
f
a
chead
::
CycleList
a
->
a
chead
ys
=
case
ys
of
(
RCons
x
xs
)
->
x
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail188.stderr
0 → 100644
View file @
86e50eb6
tcfail188.hs:13:26:
Warning: Inventing strangely-kinded Any TyCon
of kind `(* -> *) -> * -> *'
from an instantiation of type variable `f'
This warning can be suppressed by a type signature fixing `f'
but is harmless without -O (and usually harmless anyway).
See http://hackage.haskell.org/trac/ghc/ticket/959 for details
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