diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2016-01-15 11:14:35 +0200 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2016-01-16 18:21:59 +0100 |
| commit | 0ff3b72b319642f1a80bcf2153e1b06b53dd6e56 (patch) | |
| tree | 65721822481fac9cbf3273fbcd2035f682784cbb /haddock-api/src/Haddock/Backends/Xhtml | |
| parent | 13e1eaf3ca897ffcf1b37d96e2867bc80d4ca64a (diff) | |
Update to match wip/T11430 in GHC
Diffstat (limited to 'haddock-api/src/Haddock/Backends/Xhtml')
| -rw-r--r-- | haddock-api/src/Haddock/Backends/Xhtml/Decl.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs index a7a0a2d6..cb6b8cf2 100644 --- a/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs +++ b/haddock-api/src/Haddock/Backends/Xhtml/Decl.hs @@ -164,7 +164,7 @@ ppFixities fs qual = foldr1 (+++) (map ppFix uniq_fs) +++ rightEdge _:[] -> const noHtml -- Don't display names for fixities on single names _ -> concatHtml . intersperse (stringToHtml ", ") . map (ppDocName qual Infix False) - uniq_fs = [ (n, the p, the d') | (n, Fixity p d) <- fs + uniq_fs = [ (n, the p, the d') | (n, Fixity _ p d) <- fs , let d' = ppDir d , then group by Down (p,d') using groupWith ] |