Improved process to create man page from README.

Previously it relied on pandoc already being installed.
Now it uses dist/package.conf.inplace.

1 files changed, 5 insertions, 3 deletions

diff --git a/Setup.hs b/Setup.hs
index aa007576e..186a8bb2b 100644
--- a/Setup.hs
+++ b/Setup.hs
@@ -48,9 +48,11 @@ runTestSuite _ _ pkg _ = do
 
 -- | Build man pages from markdown sources in man/man1/.
 makeManPages :: Args -> BuildFlags -> PackageDescription -> LocalBuildInfo -> IO ()
-makeManPages _ flags _ buildInfo =
-  mapM_ (makeManPage pandocPath (fromFlag $ buildVerbosity flags)) manpages
-    where pandocPath = (buildDir buildInfo) </> "pandoc" </> "pandoc"
+makeManPages _ flags _ buildInfo = do
+  let pandocPath = (buildDir buildInfo) </> "pandoc" </> "pandoc"
+  makeManPage pandocPath (fromFlag $ buildVerbosity flags) "markdown2pdf.1"
+  let testCmd  = "runghc -package-conf=dist/package.conf.inplace MakeManPage.hs" -- makes pandoc.1 from README
+  runCommand testCmd >>= waitForProcess >>= exitWith
 
 manpages :: [FilePath]
 manpages = ["pandoc.1", "markdown2pdf.1"]