aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Haddock/Backends/Html.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haddock/Backends/Html.hs b/src/Haddock/Backends/Html.hs
index a7204d1a..75ea831c 100644
--- a/src/Haddock/Backends/Html.hs
+++ b/src/Haddock/Backends/Html.hs
@@ -780,8 +780,8 @@ ppLPred = ppPred . unLoc
ppPred (HsClassP n ts)
| classOp, length ts > 2 = firstApp <+> ppLTypes rest
- | classOp = firstApp
- | otherwise = ppDocName n <+> ppLTypes ts
+ | classOp = firstApp
+ | otherwise = ppDocName n <+> ppLTypes ts
where
classOp = isNameConSym . getName $ n
t1:t2:rest = ts