diff options
| author | David Waern <david.waern@gmail.com> | 2010-11-16 01:14:15 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2010-11-16 01:14:15 +0000 |
| commit | 9ae1088fd211df4796dcd0a99c048e09a7c61d51 (patch) | |
| tree | eb787efc4643c897ef3a87e359e8e937f250cc5b /src/Haddock/Backends/Xhtml/Names.hs | |
| parent | 0a53f7fd06815ea995b000ce0194c9c296772453 (diff) | |
hlint police
Diffstat (limited to 'src/Haddock/Backends/Xhtml/Names.hs')
| -rw-r--r-- | src/Haddock/Backends/Xhtml/Names.hs | 7 |
1 files changed, 3 insertions, 4 deletions
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) -> |