Whitespace police

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]