From 9ae1088fd211df4796dcd0a99c048e09a7c61d51 Mon Sep 17 00:00:00 2001 From: David Waern Date: Tue, 16 Nov 2010 01:14:15 +0000 Subject: hlint police --- src/Haddock/Backends/Xhtml/Names.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'src/Haddock/Backends/Xhtml/Names.hs') diff --git a/src/Haddock/Backends/Xhtml/Names.hs b/src/Haddock/Backends/Xhtml/Names.hs index 4d9f0739..406b8995 100644 --- a/src/Haddock/Backends/Xhtml/Names.hs +++ b/src/Haddock/Backends/Xhtml/Names.hs @@ -50,10 +50,9 @@ qualifyName qual docName@(Documented name mdl) = case qual of FullQual -> ppFullQualName mdl name -- this is just in case, it should never happen LocalQual Nothing -> qualifyName FullQual docName - LocalQual (Just localmdl) -> - if (moduleString mdl == moduleString localmdl) - then ppName name - else ppFullQualName mdl name + LocalQual (Just localmdl) + | moduleString mdl == moduleString localmdl -> ppName name + | otherwise -> ppFullQualName mdl name -- again, this never happens RelativeQual Nothing -> qualifyName FullQual docName RelativeQual (Just localmdl) -> -- cgit v1.2.3