From d8cfc255bd4fb29e63e23f1c23341b01e4bc4b8c Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Thu, 2 Jul 2015 09:31:33 -0700 Subject: Setup.hs: ensure target directory is created when installing man page. --- Setup.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/Setup.hs b/Setup.hs index c72e5b10b..d44af31d8 100644 --- a/Setup.hs +++ b/Setup.hs @@ -23,7 +23,7 @@ import Distribution.PackageDescription (PackageDescription(..), Executable(..)) import System.Process ( rawSystem ) import System.FilePath ( () ) import System.Directory ( findExecutable ) -import Distribution.Simple.Utils (info, notice, rawSystemExit, installOrdinaryFile) +import Distribution.Simple.Utils (info, notice, rawSystemExit, installOrdinaryFiles) import Distribution.Simple.Setup import Distribution.Simple.LocalBuildInfo import Distribution.Verbosity @@ -70,7 +70,6 @@ makeManPage _ bf _ LocalBuildInfo{buildDir=buildDir} installManpage :: PackageDescription -> LocalBuildInfo -> Verbosity -> CopyDest -> IO () installManpage pkg lbi verbosity copy = do - let mandest = mandir (absoluteInstallDirs pkg lbi copy) - "man1" "pandoc.1" + let mandest = mandir (absoluteInstallDirs pkg lbi copy) "man1" notice verbosity $ "Copying man page to " ++ mandest - installOrdinaryFile verbosity ("man" "pandoc.1") mandest + installOrdinaryFiles verbosity mandest [("man", "pandoc.1")] -- cgit v1.2.3