diff options
| -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 = |