summaryrefslogtreecommitdiff
path: root/testsuite/tests/typecheck/should_fail/tcfail165.stderr
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests/typecheck/should_fail/tcfail165.stderr')
-rw-r--r--testsuite/tests/typecheck/should_fail/tcfail165.stderr12
1 files changed, 12 insertions, 0 deletions
diff --git a/testsuite/tests/typecheck/should_fail/tcfail165.stderr b/testsuite/tests/typecheck/should_fail/tcfail165.stderr
new file mode 100644
index 0000000000..878a707120
--- /dev/null
+++ b/testsuite/tests/typecheck/should_fail/tcfail165.stderr
@@ -0,0 +1,12 @@
+
+tcfail165.hs:15:23:
+ Couldn't match expected type `forall a. Show a => a -> String'
+ with actual type `b0 -> String'
+ In the second argument of `putMVar', namely
+ `(show :: forall b. Show b => b -> String)'
+ In a stmt of a 'do' block:
+ putMVar var (show :: forall b. Show b => b -> String)
+ In the expression:
+ do { var <- newEmptyMVar ::
+ IO (MVar (forall a. Show a => a -> String));
+ putMVar var (show :: forall b. Show b => b -> String) }