Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Setup.hs: ensure target directory is created when installing man page.

Browse source
This commit is contained in:
John MacFarlane 2015-07-02 09:31:33 -07:00
parent f30b2d4629
commit d8cfc255bd
1 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
Setup.hs
View file

@ -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")]