From 6d88847178b540c48fd37fd5a2ba9b89898b88fa Mon Sep 17 00:00:00 2001 From: Jose Pedro Magalhaes Date: Wed, 16 Nov 2011 21:42:22 +0100 Subject: Follow changes to tuple sorts in master --- src/Haddock/Backends/Xhtml/Decl.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Haddock/Backends/Xhtml') 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 -------------------------------------------------------------------------------- -- cgit v1.2.3