b3ad94bde9
* MakeManPage.hs has been transformed into man/make-pandoc-man-pages.hs. * There is now a cabal stanza for this, so the dependencies are handled by cabal. * Special treatment in Setup.hs ensures that this never gets installed; it is built and used to create the man pages. * Setup.hs cleaned up.
55 lines
2.1 KiB
Haskell
55 lines
2.1 KiB
Haskell
{-# LANGUAGE CPP #-}
|
|
|
|
import Distribution.Simple
|
|
import Distribution.Simple.Setup
|
|
(copyDest, copyVerbosity, fromFlag, installVerbosity, BuildFlags(..))
|
|
import Distribution.PackageDescription (PackageDescription(..), Executable(..))
|
|
import Distribution.Simple.LocalBuildInfo
|
|
(LocalBuildInfo(..), absoluteInstallDirs)
|
|
import Distribution.Verbosity ( Verbosity, silent )
|
|
import Distribution.Simple.InstallDirs (mandir, CopyDest (NoCopyDest))
|
|
import Distribution.Simple.Utils (installOrdinaryFiles)
|
|
import Prelude hiding (catch)
|
|
import System.Process ( rawSystem )
|
|
import System.FilePath ( (</>) )
|
|
import System.Exit
|
|
|
|
main :: IO ()
|
|
main = do
|
|
defaultMainWithHooks $ simpleUserHooks {
|
|
postBuild = makeManPages
|
|
, postCopy = \ _ flags pkg lbi ->
|
|
installManpages pkg lbi (fromFlag $ copyVerbosity flags)
|
|
(fromFlag $ copyDest flags)
|
|
, postInst = \ _ flags pkg lbi ->
|
|
installManpages pkg lbi (fromFlag $ installVerbosity flags) NoCopyDest
|
|
, copyHook = \pkgdescr ->
|
|
(copyHook simpleUserHooks) pkgdescr{ executables =
|
|
[x | x <- executables pkgdescr, exeName x /= "make-pandoc-man-pages"] }
|
|
, instHook = \pkgdescr ->
|
|
(instHook simpleUserHooks) pkgdescr{ executables =
|
|
[x | x <- executables pkgdescr, exeName x /= "make-pandoc-man-pages"] }
|
|
}
|
|
exitWith ExitSuccess
|
|
|
|
-- | Build man pages from markdown sources in man/
|
|
makeManPages :: Args -> BuildFlags -> PackageDescription -> LocalBuildInfo -> IO ()
|
|
makeManPages _ flags _ _ = do
|
|
let verbosity = fromFlag $ buildVerbosity flags
|
|
let args = ["--verbose" | verbosity /= silent]
|
|
rawSystem ("dist" </> "build" </> "make-pandoc-man-pages" </> "make-pandoc-man-pages")
|
|
args >>= exitWith
|
|
|
|
manpages :: [FilePath]
|
|
manpages = ["man1" </> "pandoc.1"
|
|
,"man5" </> "pandoc_markdown.5"]
|
|
|
|
manDir :: FilePath
|
|
manDir = "man"
|
|
|
|
installManpages :: PackageDescription -> LocalBuildInfo
|
|
-> Verbosity -> CopyDest -> IO ()
|
|
installManpages pkg lbi verbosity copy =
|
|
installOrdinaryFiles verbosity (mandir (absoluteInstallDirs pkg lbi copy))
|
|
(zip (repeat manDir) manpages)
|
|
|