From 957f4ad40b1eb9931d2b2de80f4bc8e28e22b4fa Mon Sep 17 00:00:00 2001 From: David Waern Date: Sun, 3 Oct 2010 21:31:24 +0000 Subject: Style wibble --- src/Haddock/Interface.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Haddock') 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') -- cgit v1.2.3