diff options
| author | David Waern <david.waern@gmail.com> | 2010-07-21 15:08:11 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2010-07-21 15:08:11 +0000 |
| commit | 2b32433dc1aec48cc36ab4486e104185edfdedbd (patch) | |
| tree | eb4293579761f33ec0161e696d76cb150a9a4d86 /src/Haddock | |
| parent | 6d17d099f7d2d4173bf0ff1f7fedad78497fc27e (diff) | |
Style police in Haddock.GhcUtils
Diffstat (limited to 'src/Haddock')
| -rw-r--r-- | src/Haddock/GhcUtils.hs | 12 |
1 files 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 ------------------------------------------------------------------------------- |