diff options
| author | David Waern <david.waern@gmail.com> | 2010-07-21 13:44:27 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2010-07-21 13:44:27 +0000 |
| commit | 9c35fb711009ace5815bd0941466cfc0c8e4ec75 (patch) | |
| tree | a2478c10b770732396d28ca34d45f8cde6b0036e /src/Haddock/Backends/Xhtml/Names.hs | |
| parent | 7cfe602a3959279b3b435e4f9522ff528e344f37 (diff) | |
Remove more trailing whitespace
Diffstat (limited to 'src/Haddock/Backends/Xhtml/Names.hs')
| -rw-r--r-- | src/Haddock/Backends/Xhtml/Names.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Haddock/Backends/Xhtml/Names.hs b/src/Haddock/Backends/Xhtml/Names.hs index 5b61f63f..0c7df9a8 100644 --- a/src/Haddock/Backends/Xhtml/Names.hs +++ b/src/Haddock/Backends/Xhtml/Names.hs @@ -38,7 +38,7 @@ ppLDocName :: Located DocName -> Html ppLDocName (L _ d) = ppDocName d ppDocName :: DocName -> Html -ppDocName (Documented name mdl) = +ppDocName (Documented name mdl) = linkIdOcc mdl (Just occName) << ppOccName occName where occName = nameOccName name ppDocName (Undocumented name) = toHtml (getOccString name) @@ -67,7 +67,7 @@ linkId mdl mbName = linkIdOcc mdl (fmap nameOccName mbName) linkIdOcc :: Module -> Maybe OccName -> Html -> Html linkIdOcc mdl mbName = anchor ! [href url] - where + where url = case mbName of Nothing -> moduleUrl mdl Just name -> moduleNameUrl mdl name |