aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2010-07-21 15:11:33 +0000
committerDavid Waern <david.waern@gmail.com>2010-07-21 15:11:33 +0000
commit3b109960e1d7eaaf4ef3deef6a4936f2ac6a96d8 (patch)
treea6e6c38c74f521b5b867430f1207bcb0178cc65b /src
parent8006887f4b70f65d65523ec55e8bbc618b89013a (diff)
Whitespace police
Diffstat (limited to 'src')
-rw-r--r--src/Haddock/ModuleTree.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Haddock/ModuleTree.hs b/src/Haddock/ModuleTree.hs
index 61812e3a..2a7fbfcc 100644
--- a/src/Haddock/ModuleTree.hs
+++ b/src/Haddock/ModuleTree.hs
@@ -23,7 +23,7 @@ data ModuleTree = Node String Bool (Maybe String) (Maybe (Doc Name)) [ModuleTree
mkModuleTree :: Bool -> [(Module, Maybe (Doc Name))] -> [ModuleTree]
-mkModuleTree showPkgs mods =
+mkModuleTree showPkgs mods =
foldr fn [] [ (splitModule mdl, modPkg mdl, short) | (mdl, short) <- mods ]
where
modPkg mod_ | showPkgs = Just (packageIdString (modulePackageId mod_))
@@ -52,5 +52,5 @@ mkSubTree (s:ss) pkg short = [Node s (null ss) Nothing Nothing (mkSubTree ss pkg
splitModule :: Module -> [String]
splitModule mdl = split (moduleNameString (moduleName mdl))
where split mod0 = case break (== '.') mod0 of
- (s1, '.':s2) -> s1 : split s2
- (s1, _) -> [s1]
+ (s1, '.':s2) -> s1 : split s2
+ (s1, _) -> [s1]