@@ -5,7 +5,7 @@ import Distribution.PackageDescription
55 (PackageDescription(..), Executable(..), BuildInfo(..))
66import Distribution.Simple.LocalBuildInfo
77 (LocalBuildInfo(..), absoluteInstallDirs)
8−import Distribution.Verbosity ( Verbosity )
8+import Distribution.Verbosity ( Verbosity, silent )
99import Distribution.Simple.InstallDirs (mandir, bindir, CopyDest (NoCopyDest))
1010import Distribution.Simple.Utils (copyFiles)
1111import Control.Exception ( bracket_ )
@@ -48,7 +48,7 @@ runTestSuite _ _ pkg _ = do
4848
4949-- | Build man pages from markdown sources in man/man1/.
5050makeManPages :: Args -> BuildFlags -> PackageDescription -> LocalBuildInfo -> IO ()
51−makeManPages _ _ _ _ = mapM_ makeManPage manpages
51+makeManPages _ flags _ _ = mapM_ (makeManPage (fromFlag $ buildVerbosity flags)) manpages
5252
5353manpages :: [FilePath]
5454manpages = ["pandoc.1", "hsmarkdown.1", "html2markdown.1", "markdown2pdf.1"]
@@ -57,8 +57,8 @@ manDir :: FilePath
5757manDir = "man" </> "man1"
5858
5959-- | Build a man page from markdown source in man/man1.
60−makeManPage :: FilePath -> IO ()
61−makeManPage manpage = do
60+makeManPage :: Verbosity -> FilePath -> IO ()
61+makeManPage verbosity manpage = do
6262 let pandoc = "dist" </> "build" </> "pandoc" </> "pandoc"
6363 let page = manDir </> manpage
6464 let source = manDir </> manpage <.> "md"
@@ -68,7 +68,8 @@ makeManPage manpage = do
6868 "--template=templates/man.template", "-o", page, source]
6969 Nothing Nothing Nothing Nothing (Just stderr) >>= waitForProcess
7070 case ec of
71− ExitSuccess -> putStrLn $ "Created " ++ manDir </> manpage
71+ ExitSuccess -> unless (verbosity == silent) $
72+ putStrLn $ "Created " ++ manDir </> manpage
7273 _ -> do putStrLn $ "Error creating " ++ manDir </> manpage
7374 exitWith ec
7475