diff options
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) -> |