From 6579bd0298cb05befeaed64627ff885274e12abf Mon Sep 17 00:00:00 2001 From: David Waern Date: Sat, 8 Dec 2007 16:15:54 +0000 Subject: Code layout changes --- src/Haddock/Backends/Html.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Haddock') 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 -- cgit v1.2.3