aboutsummaryrefslogtreecommitdiff
path: root/haddock-api
diff options
context:
space:
mode:
authorAlan Zimmerman <alan.zimm@gmail.com>2016-01-15 11:14:35 +0200
committerAlan Zimmerman <alan.zimm@gmail.com>2016-01-15 11:14:35 +0200
commitc2e89153c0aaf2dc4e3908701f19d739eb0d8b93 (patch)
tree700a212582dc45f36836b532dd146736874ada45 /haddock-api
parenta13d21c688cae176be4505a5a6e9d64739845ea3 (diff)
Update to match wip/T11430 in GHC
Diffstat (limited to 'haddock-api')
-rw-r--r--haddock-api/src/Haddock/Backends/Xhtml/Decl.hs2
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 ]