diff options
| -rw-r--r-- | src/Haddock/Backends/Html.hs | 4 |
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 |