Error messsage wibbles
[ghc.git] / testsuite / tests / typecheck / should_fail / T8142.stderr
index 22c5d64..c1c32fe 100644 (file)
@@ -1,12 +1,12 @@
 
 T8142.hs:6:18:
-    Couldn't match type ‛Nu f0’ with ‛Nu f
+    Couldn't match type ‛Nu ((,) t0)’ with ‛Nu ((,) t)
     NB: ‛Nu’ is a type function, and may not be injective
-    The type variable ‛f0’ is ambiguous
-    Expected type: a -> Nu f
-      Actual type: a -> Nu f0
+    The type variable ‛t0’ is ambiguous
+    Expected type: Nu ((,) t) -> Nu f
+      Actual type: Nu ((,) t0) -> Nu f0
     When checking that ‛h’
-      has the inferred type ‛forall (f :: * -> *) a. a -> Nu f’
+      has the inferred type ‛forall t (f :: * -> *). Nu ((,) t) -> Nu f’
     Probable cause: the inferred type is ambiguous
     In an equation for ‛tracer’:
         tracer
@@ -15,9 +15,14 @@ T8142.hs:6:18:
               h = (\ (_, b) -> ((outI . fmap h) b)) . out
 
 T8142.hs:6:57:
-    Occurs check: cannot construct the infinite type: a ~ f1 a
-    Expected type: a -> (t0, f1 a)
-      Actual type: Nu ((,) t0) -> (t0, Nu ((,) t0))
-    Relevant bindings include h :: a -> Nu f1 (bound at T8142.hs:6:18)
+    Could not deduce (Nu ((,) t) ~ f1 (Nu ((,) t)))
+    from the context (Functor f, Coinductive f)
+      bound by the type signature for
+                 tracer :: (Functor f, Coinductive f) => (c -> f c) -> c -> f c
+      at T8142.hs:5:11-64
+    Expected type: Nu ((,) t) -> (t, f1 (Nu ((,) t)))
+      Actual type: Nu ((,) t) -> (t, Nu ((,) t))
+    Relevant bindings include
+      h :: Nu ((,) t) -> Nu f1 (bound at T8142.hs:6:18)
     In the second argument of ‛(.)’, namely ‛out’
     In the expression: (\ (_, b) -> ((outI . fmap h) b)) . out