From 6b1407d2090057bb951ecd0b239b659c138cc6b8 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 11 Jan 2011 20:34:49 -0800 Subject: Setup.hs: -Wall clean. --- Setup.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Setup.hs') diff --git a/Setup.hs b/Setup.hs index b68435216..455909795 100644 --- a/Setup.hs +++ b/Setup.hs @@ -9,7 +9,7 @@ import Distribution.Verbosity ( Verbosity, silent ) import Distribution.Simple.InstallDirs (mandir, bindir, CopyDest (NoCopyDest)) import Distribution.Simple.Utils (copyFiles) import Control.Exception ( bracket_ ) -import Control.Monad ( unless, when ) +import Control.Monad ( unless ) import System.Process ( rawSystem, runCommand, runProcess, waitForProcess ) import System.FilePath ( (), (<.>) ) import System.Directory @@ -55,8 +55,8 @@ runTestSuite _ _ pkg lbi = do -- | Build man pages from markdown sources in man/man1/. makeManPages :: Args -> BuildFlags -> PackageDescription -> LocalBuildInfo -> IO () -makeManPages _ flags _ buildInfo = do - let pandocPath = (buildDir buildInfo) "pandoc" "pandoc" +makeManPages _ flags _ bi = do + let pandocPath = (buildDir bi) "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 -- cgit v1.2.3