Repository : ssh://darcs.haskell.org//srv/darcs/haddock On branch : master
http://hackage.haskell.org/trac/ghc/changeset/6d88847178b540c48fd37fd5a2ba9b89898b88fa >--------------------------------------------------------------- commit 6d88847178b540c48fd37fd5a2ba9b89898b88fa Author: Jose Pedro Magalhaes <[email protected]> Date: Wed Nov 16 21:42:22 2011 +0100 Follow changes to tuple sorts in master >--------------------------------------------------------------- src/Haddock/Backends/LaTeX.hs | 4 ++-- src/Haddock/Backends/Xhtml/Decl.hs | 4 ++-- src/Haddock/Convert.hs | 4 ++-- 3 files changed, 6 insertions(+), 6 deletions(-) diff --git a/src/Haddock/Backends/LaTeX.hs b/src/Haddock/Backends/LaTeX.hs index c6ac2b0..5c21f0c 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 4442916..686e9a3 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 ea905ed..b9d0e76 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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
