[commit: testsuite] no-pred-ty: ConstraintKind -> ConstraintKinds (47ac738)

Simon Peyton Jones simonpj at microsoft.com
Wed Sep 7 18:01:26 CEST 2011


Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : no-pred-ty

http://hackage.haskell.org/trac/ghc/changeset/47ac738f3083e345a82896ad8e33a8070ffa7332

>---------------------------------------------------------------

commit 47ac738f3083e345a82896ad8e33a8070ffa7332
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Wed Sep 7 17:00:24 2011 +0100

    ConstraintKind -> ConstraintKinds

>---------------------------------------------------------------

 tests/typecheck/should_compile/tc250.hs      |    2 +-
 tests/typecheck/should_compile/tc251.hs      |    2 +-
 tests/typecheck/should_fail/tcfail209.stderr |    2 +-
 tests/typecheck/should_fail/tcfail210.stderr |    2 +-
 tests/typecheck/should_fail/tcfail212.hs     |    4 ++--
 tests/typecheck/should_fail/tcfail213.hs     |    2 +-
 tests/typecheck/should_fail/tcfail214.hs     |    2 +-
 tests/typecheck/should_run/tcrun043.hs       |    2 +-
 tests/typecheck/should_run/tcrun044.hs       |    2 +-
 tests/typecheck/should_run/tcrun046.hs       |    2 +-
 10 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/tests/typecheck/should_compile/tc250.hs b/tests/typecheck/should_compile/tc250.hs
index cf95685..dcfbf1a 100644
--- a/tests/typecheck/should_compile/tc250.hs
+++ b/tests/typecheck/should_compile/tc250.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE TypeFamilies, ConstraintKind, UndecidableInstances #-}
+{-# LANGUAGE TypeFamilies, ConstraintKinds, UndecidableInstances #-}
 module Ctx where
 
 type family Indirect :: * -> Constraint
diff --git a/tests/typecheck/should_compile/tc251.hs b/tests/typecheck/should_compile/tc251.hs
index c878feb..a9b0440 100644
--- a/tests/typecheck/should_compile/tc251.hs
+++ b/tests/typecheck/should_compile/tc251.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE TypeFamilies, ConstraintKind, UndecidableInstances #-}
+{-# LANGUAGE TypeFamilies, ConstraintKinds, UndecidableInstances #-}
 module Ctx where
 
 type family Indirect :: * -> Constraint
diff --git a/tests/typecheck/should_fail/tcfail209.stderr b/tests/typecheck/should_fail/tcfail209.stderr
index 964a10e..b3c7a10 100644
--- a/tests/typecheck/should_fail/tcfail209.stderr
+++ b/tests/typecheck/should_fail/tcfail209.stderr
@@ -1,7 +1,7 @@
 
 tcfail209.hs:5:1:
     Illegal irreducible constraint Showish a
-    (Use -XConstraintKind to permit this)
+    (Use -XConstraintKinds to permit this)
     In the type signature for `f': f :: Showish a => a -> a
 
 tcfail209.hs:8:8:
diff --git a/tests/typecheck/should_fail/tcfail210.stderr b/tests/typecheck/should_fail/tcfail210.stderr
index 46f0404..d5b106a 100644
--- a/tests/typecheck/should_fail/tcfail210.stderr
+++ b/tests/typecheck/should_fail/tcfail210.stderr
@@ -2,4 +2,4 @@
 tcfail210.hs:4:31:
     Unexpected named kind:
         Constraint
-    Perhaps you meant to use -XConstraintKind?
+    Perhaps you meant to use -XConstraintKinds?
diff --git a/tests/typecheck/should_fail/tcfail212.hs b/tests/typecheck/should_fail/tcfail212.hs
index 9ebc242..d0b5c7a 100644
--- a/tests/typecheck/should_fail/tcfail212.hs
+++ b/tests/typecheck/should_fail/tcfail212.hs
@@ -1,9 +1,9 @@
-{-# LANGUAGE ConstraintKind, MagicHash #-}
+{-# LANGUAGE ConstraintKinds, MagicHash #-}
 module ShouldFail where
 
 import GHC.Exts
 
--- If we turn on ConstraintKind the typing rule for
+-- If we turn on ConstraintKinds the typing rule for
 -- tuple types is generalised. This test checks that
 -- we get a reasonable error for unreasonable tuples.
 
diff --git a/tests/typecheck/should_fail/tcfail213.hs b/tests/typecheck/should_fail/tcfail213.hs
index 133418a..9451533 100644
--- a/tests/typecheck/should_fail/tcfail213.hs
+++ b/tests/typecheck/should_fail/tcfail213.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE TypeFamilies, ConstraintKind #-}
+{-# LANGUAGE TypeFamilies, ConstraintKinds #-}
 module ShouldFail where
 
 type family F a :: Constraint
diff --git a/tests/typecheck/should_fail/tcfail214.hs b/tests/typecheck/should_fail/tcfail214.hs
index 718810a..553dfcf 100644
--- a/tests/typecheck/should_fail/tcfail214.hs
+++ b/tests/typecheck/should_fail/tcfail214.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE TypeFamilies, ConstraintKind #-}
+{-# LANGUAGE TypeFamilies, ConstraintKinds #-}
 module ShouldFail where
 
 type family F a :: Constraint
diff --git a/tests/typecheck/should_run/tcrun043.hs b/tests/typecheck/should_run/tcrun043.hs
index 9e2e6d7..6500df7 100644
--- a/tests/typecheck/should_run/tcrun043.hs
+++ b/tests/typecheck/should_run/tcrun043.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE GADTs, TypeFamilies, ConstraintKind #-}
+{-# LANGUAGE GADTs, TypeFamilies, ConstraintKinds #-}
 
 type Showish = Show
 
diff --git a/tests/typecheck/should_run/tcrun044.hs b/tests/typecheck/should_run/tcrun044.hs
index 031cd40..f39505e 100644
--- a/tests/typecheck/should_run/tcrun044.hs
+++ b/tests/typecheck/should_run/tcrun044.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE TypeFamilies, ConstraintKind #-}
+{-# LANGUAGE TypeFamilies, ConstraintKinds #-}
 
 import qualified Data.Set as S
 
diff --git a/tests/typecheck/should_run/tcrun046.hs b/tests/typecheck/should_run/tcrun046.hs
index 9eb4018..c75b59a 100644
--- a/tests/typecheck/should_run/tcrun046.hs
+++ b/tests/typecheck/should_run/tcrun046.hs
@@ -1,4 +1,4 @@
-{-# LANGUAGE TypeFamilies, ConstraintKind, GADTs #-}
+{-# LANGUAGE TypeFamilies, ConstraintKinds, GADTs #-}
 
 module Main where
 





More information about the Cvs-ghc mailing list