aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Haddock/Backends/LaTeX.hs4
-rw-r--r--src/Haddock/Backends/Xhtml/Decl.hs4
-rw-r--r--src/Haddock/Convert.hs4
3 files changed, 6 insertions, 6 deletions
diff --git a/src/Haddock/Backends/LaTeX.hs b/src/Haddock/Backends/LaTeX.hs
index c6ac2b0a..5c21f0cf 100644
--- a/src/Haddock/Backends/LaTeX.hs
+++ b/src/Haddock/Backends/LaTeX.hs
@@ -796,8 +796,8 @@ ppBang _ = char '!' -- Unpacked args is an implementation detail,
tupleParens :: HsTupleSort -> [LaTeX] -> LaTeX
-tupleParens (HsBoxyTuple _) = parenList
-tupleParens HsUnboxedTuple = ubxParenList
+tupleParens HsUnboxedTuple = ubxParenList
+tupleParens _ = parenList
-------------------------------------------------------------------------------
diff --git a/src/Haddock/Backends/Xhtml/Decl.hs b/src/Haddock/Backends/Xhtml/Decl.hs
index 44429167..686e9a3e 100644
--- a/src/Haddock/Backends/Xhtml/Decl.hs
+++ b/src/Haddock/Backends/Xhtml/Decl.hs
@@ -641,8 +641,8 @@ ppBang _ = toHtml "!" -- Unpacked args is an implementation detail,
tupleParens :: HsTupleSort -> [Html] -> Html
-tupleParens (HsBoxyTuple _) = parenList
-tupleParens HsUnboxedTuple = ubxParenList
+tupleParens HsUnboxedTuple = ubxParenList
+tupleParens _ = parenList
--------------------------------------------------------------------------------
diff --git a/src/Haddock/Convert.hs b/src/Haddock/Convert.hs
index ea905ed0..b9d0e76f 100644
--- a/src/Haddock/Convert.hs
+++ b/src/Haddock/Convert.hs
@@ -263,8 +263,8 @@ 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
- ConstraintTuple -> HsBoxyTuple constraintKind
+ BoxedTuple -> HsBoxedTuple
+ ConstraintTuple -> HsConstraintTuple
UnboxedTuple -> HsUnboxedTuple)
(map (synifyType WithinType) tys)
-- ditto for lists