diff options
| author | Jose Pedro Magalhaes <jpm@cs.uu.nl> | 2011-11-16 21:42:22 +0100 |
|---|---|---|
| committer | Jose Pedro Magalhaes <jpm@cs.uu.nl> | 2011-11-16 21:42:22 +0100 |
| commit | 6d88847178b540c48fd37fd5a2ba9b89898b88fa (patch) | |
| tree | 8956875fc14398a23c75dd17b62d1cbfa0380e37 /src/Haddock/Backends | |
| parent | 96154b6154c6e7556a92695428d0fc8ddf015d2a (diff) | |
Follow changes to tuple sorts in master
Diffstat (limited to 'src/Haddock/Backends')
| -rw-r--r-- | src/Haddock/Backends/LaTeX.hs | 4 | ||||
| -rw-r--r-- | src/Haddock/Backends/Xhtml/Decl.hs | 4 |
2 files changed, 4 insertions, 4 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 -------------------------------------------------------------------------------- |