Setup.hs · typeable/pandoc

git.iko.soy/typeable/pandoc

on free help sign in

typeable/pandoc/Setup.hs

66 lines 2.9 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.Simple.Setup (ConfigFlags(..), CopyFlags(..), fromFlag)

22import Distribution.PackageDescription (PackageDescription(..), FlagName(..))

23import Distribution.Simple.Utils ( rawSystemExitCode, findProgramVersion )

24import System.Exit

25import Distribution.Simple.Utils (info, notice, installOrdinaryFiles)

26import Distribution.Simple.Program (simpleProgram, Program(..))

27import Distribution.Simple.LocalBuildInfo

28import Control.Monad (when)

30main :: IO ()

31main = defaultMainWithHooks $ simpleUserHooks {

32 -- enable hsb2hs preprocessor for .hsb files

33 hookedPreProcessors = [ppBlobSuffixHandler]

34 , hookedPrograms = [(simpleProgram "hsb2hs"){

35 programFindVersion = \verbosity fp ->

36 findProgramVersion "--version" id verbosity fp }]

37 , postCopy = installManPage

38 }

40ppBlobSuffixHandler :: PPSuffixHandler

41ppBlobSuffixHandler = ("hsb", \_ lbi ->

42 PreProcessor {

43 platformIndependent = True,

44 runPreProcessor = mkSimplePreProcessor $ \infile outfile verbosity ->

45 do let embedData = case lookup (FlagName "embed_data_files")

46 (configConfigurationsFlags (configFlags lbi)) of

47 Just True -> True

48 _ -> False

49 when embedData $

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

51 ec <- rawSystemExitCode verbosity "hsb2hs"

52 [infile, infile, outfile]

53 case ec of

54 ExitSuccess -> return ()

55 ExitFailure _ -> error "hsb2hs is needed to build this program"

56 })

58installManPage :: Args -> CopyFlags

59 -> PackageDescription -> LocalBuildInfo -> IO ()

60installManPage _ flags pkg lbi = do

61 let verbosity = fromFlag (copyVerbosity flags)

62 let copydest = fromFlag (copyDest flags)

63 let mandest = mandir (absoluteInstallDirs pkg lbi copydest)

64 ++ "/man1"

65 notice verbosity $ "Copying man page to " ++ mandest

66 installOrdinaryFiles verbosity mandest [("man", "pandoc.1")]