summaryrefslogtreecommitdiffhomepage
path: root/Setup.hs
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"