Merge branch 'master' of http://darcs.haskell.org/testsuite

testsuite/tests/polykinds/T5938.hs

+{-# LANGUAGE PolyKinds, TypeFamilies, DataKinds #-}
+module T5938 where
+
+type family KindFam a
+type instance KindFam (a :: *) = Int
+type instance KindFam (a :: Bool) = Bool
+type instance KindFam (a :: Maybe k) = Char -- doesn't work

testsuite/tests/polykinds/all.T

@@ -31,4 +31,5 @@ test('T5881', normal, run_command, ['$MAKE -s --no-print-directory T5881'])
 test('T5716', normal, compile_fail, [''])
 test('T5937', normal, compile, [''])
 test('T5935', normal, compile, [''])
+test('T5938', normal, compile, [''])
 test('T5948', normal, compile, [''])

testsuite/tests/simplCore/should_compile/rule2.stderr

-
-==================== FloatOut stats: ====================
-1 Lets floated to top level; 0 Lets floated elsewhere; from 4 Lambda groups
-
-
-
-==================== FloatOut stats: ====================
-0 Lets floated to top level; 0 Lets floated elsewhere; from 3 Lambda groups
-
-
-
-==================== Grand total simplifier statistics ====================
-Total ticks:     11
-
-2 PreInlineUnconditionally
-  1 f
-  1 lvl
-1 UnfoldingDone 1 Roman.bar
-1 RuleFired 1 foo/bar
-7 BetaReduction
-  1 f
-  1 m
-  1 a
-  1 b
-  1 m
-  1 m
-  1 a
-8 SimplifierDone 8
-
-
+
+==================== FloatOut stats: ====================
+1 Lets floated to top level; 0 Lets floated elsewhere; from 4 Lambda groups
+
+
+
+==================== FloatOut stats: ====================
+0 Lets floated to top level; 0 Lets floated elsewhere; from 3 Lambda groups
+
+
+
+==================== Grand total simplifier statistics ====================
+Total ticks:     11
+
+2 PreInlineUnconditionally
+  1 f
+  1 lvl
+1 UnfoldingDone 1 Roman.bar
+1 RuleFired 1 foo/bar
+7 BetaReduction
+  1 f
+  1 m
+  1 a
+  1 m
+  1 b
+  1 m
+  1 a
+8 SimplifierDone 8
+
+

testsuite/tests/typecheck/should_compile/tc141.stderr

-
-tc141.hs:11:12:
-    You cannot bind scoped type variable `a'
-      in a pattern binding signature
-    In the pattern: p :: a
-    In the pattern: (p :: a, q :: a)
-    In a pattern binding: (p :: a, q :: a) = x
-
-tc141.hs:11:31:
-    Couldn't match expected type `a1' with actual type `a'
-      `a1' is a rigid type variable bound by
-           an expression type signature: a1 at tc141.hs:11:31
-      `a' is a rigid type variable bound by
-          the inferred type of f :: (a, a) -> (t, a) at tc141.hs:11:1
-    In the expression: q :: a
-    In the expression: (q :: a, p)
-    In the expression: let (p :: a, q :: a) = x in (q :: a, p)
-
-tc141.hs:13:13:
-    You cannot bind scoped type variable `a'
-      in a pattern binding signature
-    In the pattern: y :: a
-    In a pattern binding: y :: a = a
-    In the expression:
-      let y :: a = a in
-      let
-        v :: a
-        v = b
-      in v
-
-tc141.hs:15:18:
-    Couldn't match expected type `a1' with actual type `t1'
-      `a1' is a rigid type variable bound by
-           the type signature for v :: a1 at tc141.hs:14:19
-      `t1' is a rigid type variable bound by
-           the inferred type of g :: t -> t1 -> a at tc141.hs:13:1
-    In the expression: b
-    In an equation for `v': v = b
-    In the expression:
-      let
-        v :: a
-        v = b
-      in v
+
+tc141.hs:11:12:
+    You cannot bind scoped type variable `a'
+      in a pattern binding signature
+    In the pattern: p :: a
+    In the pattern: (p :: a, q :: a)
+    In a pattern binding: (p :: a, q :: a) = x
+
+tc141.hs:11:31:
+    Couldn't match expected type `a1' with actual type `a'
+      `a1' is a rigid type variable bound by
+           an expression type signature: a1 at tc141.hs:11:31
+      `a' is a rigid type variable bound by
+          the inferred type of f :: (a, a) -> (t, a) at tc141.hs:11:1
+    In the expression: q :: a
+    In the expression: (q :: a, p)
+    In the expression: let (p :: a, q :: a) = x in (q :: a, p)
+
+tc141.hs:13:13:
+    You cannot bind scoped type variable `a'
+      in a pattern binding signature
+    In the pattern: y :: a
+    In a pattern binding: y :: a = a
+    In the expression:
+      let y :: a = a in
+      let
+        v :: a
+        v = b
+      in v
+
+tc141.hs:15:18:
+    Couldn't match expected type `a2' with actual type `t'
+      `a2' is a rigid type variable bound by
+           the type signature for v :: a2 at tc141.hs:14:19
+      `t' is a rigid type variable bound by
+          the inferred type of g :: a -> t -> a1 at tc141.hs:13:1
+    In the expression: b
+    In an equation for `v': v = b
+    In the expression:
+      let
+        v :: a
+        v = b
+      in v