diff options
author | David Waern <david.waern@gmail.com> | 2008-04-12 18:52:46 +0000 |
---|---|---|
committer | David Waern <david.waern@gmail.com> | 2008-04-12 18:52:46 +0000 |
commit | aacb8bd80b2dba9340566eec0bd9a28f7e30068c (patch) | |
tree | 8b9db6a81d5e49039cc76f00bd006bb360c03665 /src | |
parent | 732ec0cf87e799bd4b8d198ffac7bd9a1b2a1d73 (diff) |
Fix missing parenthesis in constructor args bug
Diffstat (limited to 'src')
-rw-r--r-- | src/Haddock/Backends/Html.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs index 2350839a..b1f7511b 100644 --- a/src/Haddock/Backends/Html.hs +++ b/src/Haddock/Backends/Html.hs @@ -1019,11 +1019,11 @@ ppShortConstr :: Bool -> ConDecl DocName -> Html ppShortConstr summary con = case con_res con of ResTyH98 -> case con_details con of - PrefixCon args -> header +++ hsep (ppBinder summary occ : map ppLType args) + PrefixCon args -> header +++ hsep (ppBinder summary occ : map ppLParendType args) RecCon fields -> header +++ ppBinder summary occ <+> braces (vanillaTable << aboves (map (ppShortField summary) fields)) InfixCon arg1 arg2 -> header +++ - hsep [ppLType arg1, ppBinder summary occ, ppLType arg2] + hsep [ppLParendType arg1, ppBinder summary occ, ppLParendType arg2] ResTyGADT resTy -> case con_details con of PrefixCon args -> doGADTCon args resTy @@ -1060,7 +1060,7 @@ ppSideBySideConstr (L _ con) = case con_res con of ResTyH98 -> case con_details con of PrefixCon args -> - argBox (hsep ((header +++ ppBinder False occ) : map ppLType args)) + argBox (hsep ((header +++ ppBinder False occ) : map ppLParendType args)) <-> maybeRDocBox mbLDoc RecCon fields -> @@ -1070,7 +1070,7 @@ ppSideBySideConstr (L _ con) = case con_res con of aboves (map ppSideBySideField fields)) InfixCon arg1 arg2 -> - argBox (hsep [header+++ppLType arg1, ppBinder False occ, ppLType arg2]) + argBox (hsep [header+++ppLParendType arg1, ppBinder False occ, ppLParendType arg2]) <-> maybeRDocBox mbLDoc ResTyGADT resTy -> case con_details con of |