aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends/Xhtml
diff options
context:
space:
mode:
authorMark Lentczner <markl@glyphic.com>2010-04-10 21:23:21 +0000
committerMark Lentczner <markl@glyphic.com>2010-04-10 21:23:21 +0000
commit8b6b5afb7135739fd4cb321f76087956e8ecdad6 (patch)
treee266053f3b95b78591de6764bf14ee374983200a /src/Haddock/Backends/Xhtml
parentc3990a4db747458bc54606d416cd1e973546cf16 (diff)
data decls are now a sequence of paragraphs, not a table
Diffstat (limited to 'src/Haddock/Backends/Xhtml')
-rw-r--r--src/Haddock/Backends/Xhtml/Decl.hs13
1 files changed, 3 insertions, 10 deletions
diff --git a/src/Haddock/Backends/Xhtml/Decl.hs b/src/Haddock/Backends/Xhtml/Decl.hs
index ebb38907..c2a9aaf9 100644
--- a/src/Haddock/Backends/Xhtml/Decl.hs
+++ b/src/Haddock/Backends/Xhtml/Decl.hs
@@ -433,17 +433,10 @@ ppShortDataDecl summary links loc dataDecl unicode
| [] <- cons = ppDataHeader summary dataDecl unicode
- | otherwise = vanillaTable << (
+ | otherwise = foldl (+++) dataHeader $
case resTy of
- ResTyH98 -> dataHeader </>
- tda [theclass "body"] << vanillaTable << (
- aboves (zipWith doConstr ('=':repeat '|') cons)
- )
- ResTyGADT _ -> dataHeader </>
- tda [theclass "body"] << vanillaTable << (
- aboves (map doGADTConstr cons)
- )
- )
+ ResTyH98 -> zipWith doConstr ('=':repeat '|') cons
+ ResTyGADT _ -> map doGADTConstr cons
where
dataHeader =