Add location to the extra-constraints wildcard
[ghc.git] / testsuite / tests / partial-sigs / should_fail / WildcardInstantiations.stderr
index 7e0b5ac..a6c2136 100644 (file)
@@ -2,63 +2,48 @@
 WildcardInstantiations.hs:5:14: error:
     • Found type wildcard ‘_a’ standing for ‘a’
       Where: ‘a’ is a rigid type variable bound by
-               the inferred type of foo :: (Enum a, Show a) => a -> String
-               at WildcardInstantiations.hs:6:1
+               the inferred type of foo :: (Show a, Enum a) => a -> String
+               at WildcardInstantiations.hs:6:1-21
       To use the inferred type, enable PartialTypeSignatures
-    • In the type signature:
-        foo :: (Show _a, _) => _a -> _
-    • Relevant bindings include
-        foo :: a -> String (bound at WildcardInstantiations.hs:6:1)
+    • In the type signature: foo :: (Show _a, _) => _a -> _
 
 WildcardInstantiations.hs:5:18: error:
-    Found constraint wildcard ‘_’ standing for ‘Enum a’
-    To use the inferred type, enable PartialTypeSignatures
-    In the type signature:
-      foo :: (Show _a, _) => _a -> _
+    • Found type wildcard ‘_’ standing for ‘Enum a’
+      Where: ‘a’ is a rigid type variable bound by
+               the inferred type of foo :: (Show a, Enum a) => a -> String
+               at WildcardInstantiations.hs:6:1-21
+      To use the inferred type, enable PartialTypeSignatures
+    • In the type signature: foo :: (Show _a, _) => _a -> _
 
 WildcardInstantiations.hs:5:30: error:
     • Found type wildcard ‘_’ standing for ‘String’
       To use the inferred type, enable PartialTypeSignatures
-    • In the type signature:
-        foo :: (Show _a, _) => _a -> _
-    • Relevant bindings include
-        foo :: a -> String (bound at WildcardInstantiations.hs:6:1)
+    • In the type ‘_a -> _’
+      In the type signature: foo :: (Show _a, _) => _a -> _
 
 WildcardInstantiations.hs:8:8: error:
     • Found type wildcard ‘_’ standing for ‘t’
       Where: ‘t’ is a rigid type variable bound by
-               the inferred type of bar :: t -> (t -> t1) -> t1
-               at WildcardInstantiations.hs:9:1
+               the inferred type of bar :: t -> (t -> _) -> _
+               at WildcardInstantiations.hs:9:1-13
       To use the inferred type, enable PartialTypeSignatures
-    • In the type signature:
-        bar :: _ -> _ -> _
-    • Relevant bindings include
-        bar :: t -> (t -> t1) -> t1
-          (bound at WildcardInstantiations.hs:9:1)
+    • In the type ‘_ -> _ -> _’
+      In the type signature: bar :: _ -> _ -> _
 
 WildcardInstantiations.hs:8:13: error:
-    • Found type wildcard ‘_’ standing for ‘t -> t1’
-      Where: ‘t1’ is a rigid type variable bound by
-               the inferred type of bar :: t -> (t -> t1) -> t1
-               at WildcardInstantiations.hs:9:1
-             ‘t’ is a rigid type variable bound by
-               the inferred type of bar :: t -> (t -> t1) -> t1
-               at WildcardInstantiations.hs:9:1
+    • Found type wildcard ‘_’ standing for ‘t -> _’
+      Where: ‘t’, ‘_’ are rigid type variables bound by
+               the inferred type of bar :: t -> (t -> _) -> _
+               at WildcardInstantiations.hs:9:1-13
       To use the inferred type, enable PartialTypeSignatures
-    • In the type signature:
-        bar :: _ -> _ -> _
-    • Relevant bindings include
-        bar :: t -> (t -> t1) -> t1
-          (bound at WildcardInstantiations.hs:9:1)
+    • In the type ‘_ -> _ -> _’
+      In the type signature: bar :: _ -> _ -> _
 
 WildcardInstantiations.hs:8:18: error:
-    • Found type wildcard ‘_’ standing for ‘t1
-      Where: ‘t1’ is a rigid type variable bound by
-               the inferred type of bar :: t -> (t -> t1) -> t1
-               at WildcardInstantiations.hs:9:1
+    • Found type wildcard ‘_’ standing for ‘_
+      Where: ‘_’ is a rigid type variable bound by
+               the inferred type of bar :: t -> (t -> _) -> _
+               at WildcardInstantiations.hs:9:1-13
       To use the inferred type, enable PartialTypeSignatures
-    • In the type signature:
-        bar :: _ -> _ -> _
-    • Relevant bindings include
-        bar :: t -> (t -> t1) -> t1
-          (bound at WildcardInstantiations.hs:9:1)
+    • In the type ‘_ -> _ -> _’
+      In the type signature: bar :: _ -> _ -> _