Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
6a344107
Commit
6a344107
authored
Nov 06, 2007
by
simonpj
Browse files
Test for Trac
#1814
parent
130883c9
Changes
4
Hide whitespace changes
Inline
Side-by-side
testsuite/tests/ghc-regress/typecheck/should_fail/Tcfail186_Help.hs
0 → 100644
View file @
6a344107
module
Tcfail186_Help
where
type
PhantomSyn
a
=
Int
f
=
(
\
_
->
2
)
::
PhantomSyn
a
->
Int
testsuite/tests/ghc-regress/typecheck/should_fail/all.T
View file @
6a344107
...
...
@@ -172,3 +172,6 @@ test('tcfail182', normal, compile_fail, [''])
test
('
tcfail183
',
normal
,
compile_fail
,
[''])
test
('
tcfail184
',
normal
,
compile_fail
,
[''])
test
('
tcfail185
',
normal
,
compile_fail
,
[''])
test
('
tcfail186
',
extra_clean
(['
Tcfail186_Help.hi
',
'
Tcfail186_Help.o
']),
multimod_compile_fail
,
['
tcfail186
',
'
-v0
'])
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail186.hs
0 → 100644
View file @
6a344107
-- Trac #1814
module
ShouldFail
where
import
Tcfail186_Help
foo
=
f
"hoo"
\ No newline at end of file
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail186.stderr
0 → 100644
View file @
6a344107
tcfail186.hs:7:8:
Couldn't match expected type `PhantomSyn a'
against inferred type `[Char]'
Expected type: PhantomSyn a
Inferred type: [Char]
In the first argument of `f', namely `"hoo"'
In the expression: f "hoo"
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