From 9c35fb711009ace5815bd0941466cfc0c8e4ec75 Mon Sep 17 00:00:00 2001 From: David Waern Date: Wed, 21 Jul 2010 13:44:27 +0000 Subject: Remove more trailing whitespace --- src/Haddock/Backends/Xhtml/Names.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 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 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 -- cgit v1.2.3