diff options
| author | Max Bolingbroke <batterseapower@hotmail.com> | 2011-09-09 14:10:40 +0100 |
|---|---|---|
| committer | Max Bolingbroke <batterseapower@hotmail.com> | 2011-09-09 14:10:40 +0100 |
| commit | ebb07175062cf5122f3c49fa025163a9d6392e63 (patch) | |
| tree | 580c7a1435ed93f42f2a5ab7eacb27b2eda4bd7a | |
| parent | 2fed1c8a1dd4ce5713dde980b3a6f717ea6d6d5e (diff) | |
Replace FactTuple with ConstraintTuple
| -rw-r--r-- | 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 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 = |