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
f4b72c61
Commit
f4b72c61
authored
Oct 21, 2008
by
chak@cse.unsw.edu.au.
Browse files
T2693
parent
f051b216
Changes
3
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/indexed-types/should_fail/T2693.hs
0 → 100644
View file @
f4b72c61
{-# LANGUAGE TypeFamilies #-}
module
T2693
where
type
family
TFn
a
::
*
f
::
Maybe
()
f
=
do
let
Just
x
=
undefined
::
Maybe
(
TFn
a
)
let
n
=
fst
x
+
fst
x
return
()
testsuite/tests/ghc-regress/indexed-types/should_fail/T2693.stderr
0 → 100644
View file @
f4b72c61
T2693.hs:10:14:
Couldn't match expected type `(a1, b)'
against inferred type `TFn a'
In the first argument of `fst', namely `x'
In the first argument of `(+)', namely `fst x'
In the expression: fst x + fst x
testsuite/tests/ghc-regress/indexed-types/should_fail/all.T
View file @
f4b72c61
...
...
@@ -46,3 +46,4 @@ test('T1900', normal, compile_fail, [''])
test
('
T2157
',
normal
,
compile_fail
,
[''])
test
('
T2203a
',
normal
,
compile_fail
,
[''])
test
('
T2627b
',
normal
,
compile_fail
,
[''])
test
('
T2693
',
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