aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends/Xhtml/Decl.hs
diff options
context:
space:
mode:
authorJose Pedro Magalhaes <jpm@cs.uu.nl>2011-11-16 21:42:22 +0100
committerJose Pedro Magalhaes <jpm@cs.uu.nl>2011-11-16 21:42:22 +0100
commit6d88847178b540c48fd37fd5a2ba9b89898b88fa (patch)
tree8956875fc14398a23c75dd17b62d1cbfa0380e37 /src/Haddock/Backends/Xhtml/Decl.hs
parent96154b6154c6e7556a92695428d0fc8ddf015d2a (diff)
Follow changes to tuple sorts in master
Diffstat (limited to 'src/Haddock/Backends/Xhtml/Decl.hs')
-rw-r--r--src/Haddock/Backends/Xhtml/Decl.hs4
1 files changed, 2 insertions, 2 deletions
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
--------------------------------------------------------------------------------