diff options
| -rw-r--r-- | src/Haddock/Convert.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haddock/Convert.hs b/src/Haddock/Convert.hs index c209f761..6e534d05 100644 --- a/src/Haddock/Convert.hs +++ b/src/Haddock/Convert.hs @@ -21,7 +21,7 @@ import HsSyn import TcType ( tcSplitTyConApp_maybe, tcSplitSigmaTy ) import TypeRep import RnTypes ( mkIPName ) -import Kind ( liftedTypeKind, factKind ) +import Kind ( liftedTypeKind, constraintKind ) import Coercion ( splitKindFunTys, synTyConResKind ) import Name import Var @@ -266,7 +266,7 @@ synifyType _ (TyConApp tc tys) | isTupleTyCon tc, tyConArity tc == length tys = noLoc $ HsTupleTy (case tupleTyConSort tc of BoxedTuple -> HsBoxyTuple liftedTypeKind - FactTuple -> HsBoxyTuple factKind + FactTuple -> HsBoxyTuple constraintKind UnboxedTuple -> HsUnboxedTuple) (map (synifyType WithinType) tys) -- ditto for lists |