Fixed permissions on installed man pages.

Thanks to Magnus Therning for the patch.
This commit is contained in:
John MacFarlane 2012-03-09 13:30:14 -08:00
parent 0d095be64f
commit 96274b2838

View file

@ -8,7 +8,7 @@ import Distribution.Simple.LocalBuildInfo
import Distribution.Verbosity ( Verbosity, silent ) import Distribution.Verbosity ( Verbosity, silent )
import Distribution.Simple.GHC (ghcPackageDbOptions) import Distribution.Simple.GHC (ghcPackageDbOptions)
import Distribution.Simple.InstallDirs (mandir, bindir, CopyDest (NoCopyDest)) import Distribution.Simple.InstallDirs (mandir, bindir, CopyDest (NoCopyDest))
import Distribution.Simple.Utils (copyFiles) import Distribution.Simple.Utils (installOrdinaryFiles)
import Control.Exception ( bracket_ ) import Control.Exception ( bracket_ )
import Control.Monad ( unless ) import Control.Monad ( unless )
import System.Process ( rawSystem, runCommand, waitForProcess ) import System.Process ( rawSystem, runCommand, waitForProcess )
@ -86,7 +86,7 @@ manDir = "man"
installManpages :: PackageDescription -> LocalBuildInfo installManpages :: PackageDescription -> LocalBuildInfo
-> Verbosity -> CopyDest -> IO () -> Verbosity -> CopyDest -> IO ()
installManpages pkg lbi verbosity copy = installManpages pkg lbi verbosity copy =
copyFiles verbosity (mandir (absoluteInstallDirs pkg lbi copy)) installOrdinaryFiles verbosity (mandir (absoluteInstallDirs pkg lbi copy))
(zip (repeat manDir) manpages) (zip (repeat manDir) manpages)
-- | Returns a list of 'dependencies' that have been modified after 'file'. -- | Returns a list of 'dependencies' that have been modified after 'file'.