[commit: haddock] master: Replace FactTuple with ConstraintTuple (ebb0717)

[Max Bolingbroke]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/ebb07175062cf5122f3c49fa025163a9d6392e63

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

commit ebb07175062cf5122f3c49fa025163a9d6392e63
Author: Max Bolingbroke <batterseapower at hotmail.com>
Date:   Fri Sep 9 14:10:40 2011 +0100

    Replace FactTuple with ConstraintTuple

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

 src/Haddock/Convert.hs |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/Haddock/Convert.hs b/src/Haddock/Convert.hs
index d4f7566..e46a37a 100644
--- a/src/Haddock/Convert.hs
+++ b/src/Haddock/Convert.hs
@@ -263,9 +263,9 @@ synifyType _ (TyConApp tc tys)
   -- Use non-prefix tuple syntax where possible, because it looks nicer.
   | isTupleTyCon tc, tyConArity tc == length tys =
      noLoc $ HsTupleTy (case tupleTyConSort tc of
-                          BoxedTuple   -> HsBoxyTuple liftedTypeKind
-                          FactTuple    -> HsBoxyTuple constraintKind
-                          UnboxedTuple -> HsUnboxedTuple)
+                          BoxedTuple      -> HsBoxyTuple liftedTypeKind
+                          ConstraintTuple -> HsBoxyTuple constraintKind
+                          UnboxedTuple    -> HsUnboxedTuple)
                        (map (synifyType WithinType) tys)
   -- ditto for lists
   | getName tc == listTyConName, [ty] <- tys =