From 2b32433dc1aec48cc36ab4486e104185edfdedbd Mon Sep 17 00:00:00 2001 From: David Waern Date: Wed, 21 Jul 2010 15:08:11 +0000 Subject: Style police in Haddock.GhcUtils --- src/Haddock/GhcUtils.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/Haddock/GhcUtils.hs b/src/Haddock/GhcUtils.hs index 8c290f80..d8525532 100644 --- a/src/Haddock/GhcUtils.hs +++ b/src/Haddock/GhcUtils.hs @@ -147,7 +147,7 @@ trace_ppr x y = trace (pretty x) y ------------------------------------------------------------------------------- --- Located +-- * Located ------------------------------------------------------------------------------- @@ -164,11 +164,11 @@ instance Foldable Located where instance Traversable Located where - mapM f (L l x) = (return . L l) =<< f x + mapM f (L l x) = (return . L l) =<< f x ------------------------------------------------------------------------------- --- NamedThing instances +-- * NamedThing instances ------------------------------------------------------------------------------- @@ -181,7 +181,7 @@ instance NamedThing (ConDecl Name) where ------------------------------------------------------------------------------- --- Subordinates +-- * Subordinates ------------------------------------------------------------------------------- @@ -231,7 +231,7 @@ parents _ _ = [] ------------------------------------------------------------------------------- --- Utils that work in monads defined by GHC +-- * Utils that work in monads defined by GHC ------------------------------------------------------------------------------- @@ -249,7 +249,7 @@ gbracket_ before after thing = gbracket before (const after) (const thing) ------------------------------------------------------------------------------- --- DynFlags +-- * DynFlags ------------------------------------------------------------------------------- -- cgit v1.2.3