From d8cfc255bd4fb29e63e23f1c23341b01e4bc4b8c Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Thu, 2 Jul 2015 09:31:33 -0700
Subject: [PATCH] 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")]