aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorMax Bolingbroke <batterseapower@hotmail.com>2011-09-09 14:10:40 +0100
committerMax Bolingbroke <batterseapower@hotmail.com>2011-09-09 14:10:40 +0100
commitebb07175062cf5122f3c49fa025163a9d6392e63 (patch)
tree580c7a1435ed93f42f2a5ab7eacb27b2eda4bd7a /src
parent2fed1c8a1dd4ce5713dde980b3a6f717ea6d6d5e (diff)
Replace FactTuple with ConstraintTuple
Diffstat (limited to 'src')
-rw-r--r--src/Haddock/Convert.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Haddock/Convert.hs b/src/Haddock/Convert.hs
index d4f75662..e46a37a4 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 =