Add location to the extra-constraints wildcard
[ghc.git] / testsuite / tests / partial-sigs / should_fail / WildcardInstantiations.stderr
index d0d7dff..a6c2136 100644 (file)
@@ -1,51 +1,49 @@
-\r
-WildcardInstantiations.hs:5:14: error:\r
-    Found type wildcard ‘_a’ standing for ‘a’\r
-    Where: ‘a’ is a rigid type variable bound by\r
-               the inferred type of foo :: (Enum a, Show a) => a -> String\r
-               at WildcardInstantiations.hs:6:1\r
-    To use the inferred type, enable PartialTypeSignatures\r
-    In the type signature for:\r
-      foo :: (Show _a, _) => _a -> _\r
-\r
-WildcardInstantiations.hs:5:18: error:\r
-    Found hole ‘_’ with inferred constraints: Enum a\r
-    To use the inferred type, enable PartialTypeSignatures\r
-    In the type signature for:\r
-      foo :: (Show _a, _) => _a -> _\r
-\r
-WildcardInstantiations.hs:5:30: error:\r
-    Found type wildcard ‘_’ standing for ‘String’\r
-    To use the inferred type, enable PartialTypeSignatures\r
-    In the type signature for:\r
-      foo :: (Show _a, _) => _a -> _\r
-\r
-WildcardInstantiations.hs:8:8: error:\r
-    Found type wildcard ‘_’ standing for ‘t’\r
-    Where: ‘t’ is a rigid type variable bound by\r
-               the inferred type of bar :: t -> (t -> t1) -> t1\r
-               at WildcardInstantiations.hs:9:1\r
-    To use the inferred type, enable PartialTypeSignatures\r
-    In the type signature for:\r
-      bar :: _ -> _ -> _\r
-\r
-WildcardInstantiations.hs:8:13: error:\r
-    Found type wildcard ‘_’ standing for ‘t -> t1’\r
-    Where: ‘t’ is a rigid type variable bound by\r
-               the inferred type of bar :: t -> (t -> t1) -> t1\r
-               at WildcardInstantiations.hs:9:1\r
-           ‘t1’ is a rigid type variable bound by\r
-                the inferred type of bar :: t -> (t -> t1) -> t1\r
-                at WildcardInstantiations.hs:9:1\r
-    To use the inferred type, enable PartialTypeSignatures\r
-    In the type signature for:\r
-      bar :: _ -> _ -> _\r
-\r
-WildcardInstantiations.hs:8:18: error:\r
-    Found type wildcard ‘_’ standing for ‘t1’\r
-    Where: ‘t1’ is a rigid type variable bound by\r
-                the inferred type of bar :: t -> (t -> t1) -> t1\r
-                at WildcardInstantiations.hs:9:1\r
-    To use the inferred type, enable PartialTypeSignatures\r
-    In the type signature for:\r
-      bar :: _ -> _ -> _\r
+
+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 :: (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:18: error:
+    • 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 ‘_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 -> _) -> _
+               at WildcardInstantiations.hs:9:1-13
+      To use the inferred type, enable PartialTypeSignatures
+    • In the type ‘_ -> _ -> _’
+      In the type signature: bar :: _ -> _ -> _
+
+WildcardInstantiations.hs:8:13: error:
+    • 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 ‘_ -> _ -> _’
+      In the type signature: bar :: _ -> _ -> _
+
+WildcardInstantiations.hs:8:18: error:
+    • 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 ‘_ -> _ -> _’
+      In the type signature: bar :: _ -> _ -> _