blob: 7adeac11f099003f12927285312d638b92d4b3ed (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
{- Copyright 2017 Joey Hess <id@joeyh.name>
-
- Licensed under the GNU AGPL version 3 or higher.
-}
{-# OPTIONS_GHC -fno-warn-tabs #-}
import Distribution.Simple
import Distribution.Simple.LocalBuildInfo
import Distribution.Simple.Setup
import Distribution.Simple.Utils (installOrdinaryFiles, rawSystemExit)
import Distribution.PackageDescription (PackageDescription(..))
import Distribution.Verbosity (Verbosity)
import System.Info
import System.FilePath
main :: IO ()
main = defaultMainWithHooks simpleUserHooks
{ postCopy = myPostCopy
}
myPostCopy :: Args -> CopyFlags -> PackageDescription -> LocalBuildInfo -> IO ()
myPostCopy _ flags pkg lbi = if System.Info.os /= "mingw32"
then installManpages dest verbosity pkg lbi
else return ()
where
dest = fromFlag $ copyDest flags
verbosity = fromFlag $ copyVerbosity flags
{- See http://www.haskell.org/haskellwiki/Cabal/Developer-FAQ#Installing_manpages -}
installManpages :: CopyDest -> Verbosity -> PackageDescription -> LocalBuildInfo -> IO ()
installManpages copyDest verbosity pkg lbi =
installOrdinaryFiles verbosity dstManDir [(".", "debug-me.1")]
where
dstManDir = mandir (absoluteInstallDirs pkg lbi copyDest) </> "man1"
|