From 25013f63b6df88db06c8ee126686dbfe4655cd5c Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Wed, 21 Jul 2010 14:17:32 +0000
Subject: More style police

---
 src/Haddock/Backends/Xhtml/Names.hs | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(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 0c7df9a8..068fc0f7 100644
--- a/src/Haddock/Backends/Xhtml/Names.hs
+++ b/src/Haddock/Backends/Xhtml/Names.hs
@@ -17,6 +17,7 @@ module Haddock.Backends.Xhtml.Names (
   linkId
 ) where
 
+
 import Haddock.Backends.Xhtml.Utils
 import Haddock.GhcUtils
 import Haddock.Types
@@ -28,21 +29,26 @@ import GHC
 import Name
 import RdrName
 
+
 ppOccName :: OccName -> Html
 ppOccName = toHtml . occNameString
 
+
 ppRdrName :: RdrName -> Html
 ppRdrName = ppOccName . rdrNameOcc
 
+
 ppLDocName :: Located DocName -> Html
 ppLDocName (L _ d) = ppDocName d
 
+
 ppDocName :: DocName -> Html
 ppDocName (Documented name mdl) =
   linkIdOcc mdl (Just occName) << ppOccName occName
     where occName = nameOccName name
 ppDocName (Undocumented name) = toHtml (getOccString name)
 
+
 ppName :: Name -> Html
 ppName name = toHtml (getOccString name)
 
@@ -72,13 +78,15 @@ linkIdOcc mdl mbName = anchor ! [href url]
       Nothing   -> moduleUrl mdl
       Just name -> moduleNameUrl mdl name
 
+
 ppModule :: Module -> Html
 ppModule mdl = anchor ! [href (moduleUrl mdl)]
                << toHtml (moduleString mdl)
 
+
 ppModuleRef :: Module -> String -> Html
 ppModuleRef mdl ref = anchor ! [href (moduleUrl mdl ++ ref)]
                       << toHtml (moduleString mdl)
-    -- NB: The ref paramaeter already includes the '#'.
+    -- NB: The ref parameter already includes the '#'.
     -- This function is only called from markupModule expanding a
     -- DocModule, which doesn't seem to be ever be used.
-- 
cgit v1.2.3