summaryrefslogtreecommitdiff
path: root/Setup.hs
blob: 0015f6cacf609843e9527f80682a355a9052e79d (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
36
37
38
39
40
41
42
43
44
45
46
{-
Copyright (C) 2017  defanor <defanor@uberspace.net>

This program is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program.  If not, see <http://www.gnu.org/licenses/>.
-}

import Distribution.Simple
import Distribution.Simple.LocalBuildInfo
import Distribution.Simple.Utils
import Distribution.PackageDescription
import Distribution.Simple.Setup
import System.FilePath
import System.Directory

main = defaultMainWithHooks simpleUserHooks { postCopy = installExtras }

-- | Installs pancake.1.
installExtras :: Args
              -> CopyFlags
              -> PackageDescription
              -> LocalBuildInfo
              -> IO ()
installExtras _ cf pd lbi = do
  let dirs = absoluteInstallDirs pd lbi (fromFlag $ copyDest cf)
      verbosity = fromFlag $ copyVerbosity cf
      -- todo: use absoluteComponentInstallDirs once will switch to
      -- cabal 2, e.g.:
      -- absoluteComponentInstallDirs pd lbi (localUnitId lbi)
      --   (fromFlag $ copyDest cf)
  -- install man page
  let man1 = mandir dirs </> "man1"
      manFileName = "pancake.1"
      manTarget = man1 </> manFileName
  createDirectoryIfMissing True man1
  installOrdinaryFile verbosity manFileName manTarget