@@ -1,38 +1,2 @@
1−{-
2−Copyright (C) 2006-2018 John MacFarlane <jgm@berkeley.edu>
3−
4−This program is free software; you can redistribute it and/or modify
5−it under the terms of the GNU General Public License as published by
6−the Free Software Foundation; either version 2 of the License, or
7−(at your option) any later version.
8−
9−This program is distributed in the hope that it will be useful,
10−but WITHOUT ANY WARRANTY; without even the implied warranty of
11−MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12−GNU General Public License for more details.
13−
14−You should have received a copy of the GNU General Public License
15−along with this program; if not, write to the Free Software
16−Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
17−-}
18−
191import Distribution.Simple
20−import Distribution.Simple.Setup (CopyFlags(..), fromFlag)
21−import Distribution.PackageDescription (PackageDescription(..))
22−import Distribution.Simple.Utils (notice, installOrdinaryFiles)
23−import Distribution.Simple.LocalBuildInfo
24−
25−main :: IO ()
26−main = defaultMainWithHooks $ simpleUserHooks {
27− postCopy = installManPage
28− }
29−
30−installManPage :: Args -> CopyFlags
31− -> PackageDescription -> LocalBuildInfo -> IO ()
32−installManPage _ flags pkg lbi = do
33− let verbosity = fromFlag (copyVerbosity flags)
34− let copydest = fromFlag (copyDest flags)
35− let mandest = mandir (absoluteInstallDirs pkg lbi copydest)
36− ++ "/man1"
37− notice verbosity $ "Copying man page to " ++ mandest
38− installOrdinaryFiles verbosity mandest [("man", "pandoc.1")]
2+main = defaultMain