diff options
| author | Mark Lentczner <markl@glyphic.com> | 2010-04-10 21:23:21 +0000 |
|---|---|---|
| committer | Mark Lentczner <markl@glyphic.com> | 2010-04-10 21:23:21 +0000 |
| commit | 8b6b5afb7135739fd4cb321f76087956e8ecdad6 (patch) | |
| tree | e266053f3b95b78591de6764bf14ee374983200a /src/Haddock | |
| parent | c3990a4db747458bc54606d416cd1e973546cf16 (diff) | |
data decls are now a sequence of paragraphs, not a table
Diffstat (limited to 'src/Haddock')
| -rw-r--r-- | src/Haddock/Backends/Xhtml/Decl.hs | 13 |
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 = |