Commit 6a344107 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test for Trac #1814

parent 130883c9
module Tcfail186_Help where
type PhantomSyn a = Int
f = (\_ -> 2) :: PhantomSyn a -> Int
......@@ -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'])
-- Trac #1814
module ShouldFail where
import Tcfail186_Help
foo = f "hoo"
\ No newline at end of file
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"
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment