summaryrefslogtreecommitdiff
path: root/testsuite/tests/indexed-types/should_fail/T3440.stderr
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests/indexed-types/should_fail/T3440.stderr')
-rw-r--r--testsuite/tests/indexed-types/should_fail/T3440.stderr19
1 files changed, 19 insertions, 0 deletions
diff --git a/testsuite/tests/indexed-types/should_fail/T3440.stderr b/testsuite/tests/indexed-types/should_fail/T3440.stderr
new file mode 100644
index 0000000000..fe61b1da65
--- /dev/null
+++ b/testsuite/tests/indexed-types/should_fail/T3440.stderr
@@ -0,0 +1,19 @@
+
+T3440.hs:11:22:
+ Could not deduce (a1 ~ a)
+ from the context (Fam a ~ Fam a1)
+ bound by a pattern with constructor
+ GADT :: forall a. a -> Fam a -> GADT (Fam a),
+ in an equation for `unwrap'
+ at T3440.hs:11:9-16
+ `a1' is a rigid type variable bound by
+ a pattern with constructor
+ GADT :: forall a. a -> Fam a -> GADT (Fam a),
+ in an equation for `unwrap'
+ at T3440.hs:11:9
+ `a' is a rigid type variable bound by
+ the type signature for unwrap :: GADT (Fam a) -> (a, Fam a)
+ at T3440.hs:11:1
+ In the expression: x
+ In the expression: (x, y)
+ In an equation for `unwrap': unwrap (GADT x y) = (x, y)