From 1bd03d283f98d7841efd2ce4b75900f558e26c83 Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Sat, 16 Oct 2010 18:47:07 +0000
Subject: Style police

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

(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 d1423fc7..4d9f0739 100644
--- a/src/Haddock/Backends/Xhtml/Names.hs
+++ b/src/Haddock/Backends/Xhtml/Names.hs
@@ -42,6 +42,7 @@ ppRdrName = ppOccName . rdrNameOcc
 ppLDocName :: Qualification -> Located DocName -> Html
 ppLDocName qual (L _ d) = ppDocName qual d
 
+
 -- | Render a name depending on the selected qualification mode
 qualifyName :: Qualification -> DocName -> Html
 qualifyName qual docName@(Documented name mdl) = case qual of
@@ -69,6 +70,7 @@ qualifyName qual docName@(Documented name mdl) = case qual of
 -- this is just for exhaustiveness, but already handled by ppDocName
 qualifyName _ (Undocumented name) = ppName name
 
+
 ppDocName :: Qualification -> DocName -> Html
 ppDocName qual docName@(Documented name mdl) =
   linkIdOcc mdl (Just occName) << qualifyName qual docName
@@ -76,9 +78,11 @@ ppDocName qual docName@(Documented name mdl) =
 
 ppDocName _ (Undocumented name) = ppName name
 
+
 ppFullQualName :: Module -> Name -> Html
 ppFullQualName mdl name = toHtml $ moduleString mdl ++ '.' : getOccString name
 
+
 ppName :: Name -> Html
 ppName name = toHtml (getOccString name)
 
-- 
cgit v1.2.3