diff options
| author | David Waern <david.waern@gmail.com> | 2010-10-03 21:31:24 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2010-10-03 21:31:24 +0000 |
| commit | 957f4ad40b1eb9931d2b2de80f4bc8e28e22b4fa (patch) | |
| tree | 8e51c8c0bee3c5c7bbe69ecee1caf5b49fb91e3e /src/Haddock | |
| parent | 0f8e38017cbb981ea07e52d5a4a7f4736c30718b (diff) | |
Style wibble
Diffstat (limited to 'src/Haddock')
| -rw-r--r-- | src/Haddock/Interface.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Haddock/Interface.hs b/src/Haddock/Interface.hs index 81919aed..865183cd 100644 --- a/src/Haddock/Interface.hs +++ b/src/Haddock/Interface.hs @@ -165,9 +165,9 @@ processModule verbosity modsum flags modMap instIfaceMap = do 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 + (ifaceOrigFilename interface) + (printf "%d/%d" haddocked haddockable :: String) + percentage out verbosity normal coveragemsg interface' <- liftIO $ evaluate interface return (Just interface') |