From bd8ac75e5124975e48a79e8fbfb39bb722171662 Mon Sep 17 00:00:00 2001
From: fiddlosopher <fiddlosopher@788f1e2b-df1e-0410-8736-df70ead52e1b>
Date: Sun, 17 Jan 2010 00:28:42 +0000
Subject: [PATCH] Setup: Made man page building sensitive to build verbosity.
git-svn-id: https://pandoc.googlecode.com/svn/trunk@1812 788f1e2b-df1e-0410-8736-df70ead52e1b
---
Setup.hs | 11 ++++++-----
1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/Setup.hs b/Setup.hs
index 8bf2c334a..bd48dbe6e 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -5,7 +5,7 @@ import Distribution.PackageDescription
(PackageDescription(..), Executable(..), BuildInfo(..))
import Distribution.Simple.LocalBuildInfo
(LocalBuildInfo(..), absoluteInstallDirs)
-import Distribution.Verbosity ( Verbosity )
+import Distribution.Verbosity ( Verbosity, silent )
import Distribution.Simple.InstallDirs (mandir, bindir, CopyDest (NoCopyDest))
import Distribution.Simple.Utils (copyFiles)
import Control.Exception ( bracket_ )
@@ -48,7 +48,7 @@ runTestSuite _ _ pkg _ = do
-- | Build man pages from markdown sources in man/man1/.
makeManPages :: Args -> BuildFlags -> PackageDescription -> LocalBuildInfo -> IO ()
-makeManPages _ _ _ _ = mapM_ makeManPage manpages
+makeManPages _ flags _ _ = mapM_ (makeManPage (fromFlag $ buildVerbosity flags)) manpages
manpages :: [FilePath]
manpages = ["pandoc.1", "hsmarkdown.1", "html2markdown.1", "markdown2pdf.1"]
@@ -57,8 +57,8 @@ manDir :: FilePath
manDir = "man" </> "man1"
-- | Build a man page from markdown source in man/man1.
-makeManPage :: FilePath -> IO ()
-makeManPage manpage = do
+makeManPage :: Verbosity -> FilePath -> IO ()
+makeManPage verbosity manpage = do
let pandoc = "dist" </> "build" </> "pandoc" </> "pandoc"
let page = manDir </> manpage
let source = manDir </> manpage <.> "md"
@@ -68,7 +68,8 @@ makeManPage manpage = do
"--template=templates/man.template", "-o", page, source]
Nothing Nothing Nothing Nothing (Just stderr) >>= waitForProcess
case ec of
- ExitSuccess -> putStrLn $ "Created " ++ manDir </> manpage
+ ExitSuccess -> unless (verbosity == silent) $
+ putStrLn $ "Created " ++ manDir </> manpage
_ -> do putStrLn $ "Error creating " ++ manDir </> manpage
exitWith ec