diff options
| author | David Waern <davve@dtek.chalmers.se> | 2007-12-08 16:15:54 +0000 |
|---|---|---|
| committer | David Waern <davve@dtek.chalmers.se> | 2007-12-08 16:15:54 +0000 |
| commit | 6579bd0298cb05befeaed64627ff885274e12abf (patch) | |
| tree | 1b182e4008cf7ff6cfd8095e028cffb2d6c8bd7b /src/Haddock | |
| parent | 96053cafb4530a2459c2644b95c70baf57fd7eb1 (diff) | |
Code layout changes
Diffstat (limited to 'src/Haddock')
| -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 |