aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock
diff options
context:
space:
mode:
authorDavid Waern <davve@dtek.chalmers.se>2007-12-08 16:15:54 +0000
committerDavid Waern <davve@dtek.chalmers.se>2007-12-08 16:15:54 +0000
commit6579bd0298cb05befeaed64627ff885274e12abf (patch)
tree1b182e4008cf7ff6cfd8095e028cffb2d6c8bd7b /src/Haddock
parent96053cafb4530a2459c2644b95c70baf57fd7eb1 (diff)
Code layout changes
Diffstat (limited to 'src/Haddock')
-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