diff options
| author | David Waern <david.waern@gmail.com> | 2011-10-01 01:25:39 +0200 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2011-10-01 01:25:39 +0200 |
| commit | 4d6b343127aa3d545473fe9e80821b8d4587f6a1 (patch) | |
| tree | 0791d7d9e440e4c5a2c46e3b4aa5fcd1ccf1519d | |
| parent | 38ce6d5496e234ebaa0ad10c6c72ed7dad9f6a35 (diff) | |
Merge in darcs patch from Simon Meier:
Wed Jun 1 19:41:16 CEST 2011 iridcode@gmail.com
* prettier haddock coverage info
The new coverage info rendering uses less horizontal space. This reduces the
number of unnecessary line-wrappings. Moreover, the most important information,
how much has been documented already, is now put up front. Hopefully, this
makes it more likely that a library author is bothered by the low coverage of
his modules and fixes that issue ;-)
| -rw-r--r-- | src/Haddock/Interface.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/Haddock/Interface.hs b/src/Haddock/Interface.hs index 276621d2..09f01883 100644 --- a/src/Haddock/Interface.hs +++ b/src/Haddock/Interface.hs @@ -142,6 +142,7 @@ createIfaces0 verbosity modules flags instIfaceMap = createIfaces :: Verbosity -> [Flag] -> InstIfaceMap -> ModuleGraph -> Ghc [Interface] createIfaces verbosity flags instIfaceMap mods = do let sortedMods = flattenSCCs $ topSortModuleGraph False mods Nothing + out verbosity normal "Haddock coverage:" (ifaces, _) <- foldM f ([], Map.empty) sortedMods return (reverse ifaces) where @@ -162,11 +163,9 @@ processModule verbosity modsum flags modMap instIfaceMap = do liftIO $ mapM_ putStrLn msg let (haddockable, haddocked) = ifaceHaddockCoverage interface percentage = round (fromIntegral haddocked * 100 / fromIntegral haddockable :: Double) :: Int - coveragemsg = printf "haddock coverage for %s: %7s %3d%%" - (ifaceOrigFilename interface) - (printf "%d/%d" haddocked haddockable :: String) - percentage - out verbosity normal coveragemsg + modString = moduleString (ifaceMod interface) + coverageMsg = printf " %3d%% (%3d /%3d) in '%s'" percentage haddocked haddockable modString + out verbosity normal coverageMsg interface' <- liftIO $ evaluate interface return (Just interface') else |