diff options
| author | David Waern <david.waern@gmail.com> | 2010-07-21 15:11:33 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2010-07-21 15:11:33 +0000 |
| commit | 3b109960e1d7eaaf4ef3deef6a4936f2ac6a96d8 (patch) | |
| tree | a6e6c38c74f521b5b867430f1207bcb0178cc65b /src/Haddock/ModuleTree.hs | |
| parent | 8006887f4b70f65d65523ec55e8bbc618b89013a (diff) | |
Whitespace police
Diffstat (limited to 'src/Haddock/ModuleTree.hs')
| -rw-r--r-- | src/Haddock/ModuleTree.hs | 6 |
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] |