@@ -9,7 +9,7 @@ import Distribution.Verbosity ( Verbosity, silent )
99import Distribution.Simple.InstallDirs (mandir, bindir, CopyDest (NoCopyDest))
1010import Distribution.Simple.Utils (copyFiles)
1111import Control.Exception ( bracket_ )
12−import Control.Monad ( unless, when )
12+import Control.Monad ( unless )
1313import System.Process ( rawSystem, runCommand, runProcess, waitForProcess )
1414import System.FilePath ( (</>), (<.>) )
1515import System.Directory
@@ -55,8 +55,8 @@ runTestSuite _ _ pkg lbi = do
5555
5656-- | Build man pages from markdown sources in man/man1/.
5757makeManPages :: Args -> BuildFlags -> PackageDescription -> LocalBuildInfo -> IO ()
58−makeManPages _ flags _ buildInfo = do
59− let pandocPath = (buildDir buildInfo) </> "pandoc" </> "pandoc"
58+makeManPages _ flags _ bi = do
59+ let pandocPath = (buildDir bi) </> "pandoc" </> "pandoc"
6060 makeManPage pandocPath (fromFlag $ buildVerbosity flags) "markdown2pdf.1"
6161 let testCmd = "runghc -package-conf=dist/package.conf.inplace MakeManPage.hs" -- makes pandoc.1 from README
6262 runCommand testCmd >>= waitForProcess >>= exitWith