Setup.hs · typeable/pandoc

git.iko.soy/typeable/pandoc

on 1.14.0.3 help sign in

typeable/pandoc/Setup.hs

65 lines 2.7 kB history raw

1{-

4This program is free software; you can redistribute it and/or modify

5it under the terms of the GNU General Public License as published by

6the Free Software Foundation; either version 2 of the License, or

7(at your option) any later version.

9This program is distributed in the hope that it will be useful,

10but WITHOUT ANY WARRANTY; without even the implied warranty of

11MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

12GNU General Public License for more details.

14You should have received a copy of the GNU General Public License

15along with this program; if not, write to the Free Software

16Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

17-}

19import Distribution.Simple

20import Distribution.Simple.PreProcess

21import Distribution.PackageDescription (PackageDescription(..), Executable(..))

22import System.Process ( rawSystem )

23import System.FilePath ( (</>) )

24import System.Directory ( findExecutable )

25import Distribution.Simple.Utils (info, rawSystemExit)

26import Distribution.Simple.Setup

27import Distribution.Simple.LocalBuildInfo

28import Distribution.Verbosity

30main :: IO ()

31main = defaultMainWithHooks $ simpleUserHooks {

32 -- enable hsb2hs preprocessor for .hsb files

33 hookedPreProcessors = [ppBlobSuffixHandler]

34 -- ensure that make-pandoc-man-pages doesn't get installed to bindir

35 , copyHook = \pkgdescr ->

36 copyHook simpleUserHooks pkgdescr{ executables =

37 [x | x <- executables pkgdescr, exeName x `notElem` noInstall] }

38 , instHook = \pkgdescr ->

39 instHook simpleUserHooks pkgdescr{ executables =

40 [x | x <- executables pkgdescr, exeName x `notElem` noInstall] }

41 , postBuild = \args bf pkgdescr lbi ->

42 makeManPages args bf pkgdescr lbi

43 }

44 where

45 noInstall = ["make-pandoc-man-pages"]

47ppBlobSuffixHandler :: PPSuffixHandler

48ppBlobSuffixHandler = ("hsb", \_ _ ->

49 PreProcessor {

50 platformIndependent = True,

51 runPreProcessor = mkSimplePreProcessor $ \infile outfile verbosity ->

52 do info verbosity $ "Preprocessing " ++ infile ++ " to " ++ outfile

53 hsb2hsPath <- findExecutable "hsb2hs"

54 case hsb2hsPath of

55 Just p -> rawSystem p [infile, infile, outfile]

56 Nothing -> error "hsb2hs is needed to build this program: cabal install hsb2hs"

57 return ()

58 })

60makeManPages :: Args -> BuildFlags -> PackageDescription -> LocalBuildInfo -> IO ()

61makeManPages _ bf _ LocalBuildInfo{buildDir=buildDir}

62 = rawSystemExit verbosity progPath []

63 where

64 verbosity = fromFlagOrDefault normal $ buildVerbosity bf

65 progPath = buildDir </> "make-pandoc-man-pages" </> "make-pandoc-man-pages"