{- Copyright (C) 2006-2014 John MacFarlane 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 2 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, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -} import Distribution.Simple import Distribution.Simple.PreProcess import Distribution.PackageDescription (PackageDescription(..), Executable(..)) import System.Process ( rawSystem ) import System.FilePath ( () ) import System.Directory ( findExecutable ) import Distribution.Simple.Utils (info, rawSystemExit) import Distribution.Simple.Setup import Distribution.Simple.LocalBuildInfo import Distribution.Verbosity main :: IO () main = defaultMainWithHooks $ simpleUserHooks { -- enable hsb2hs preprocessor for .hsb files hookedPreProcessors = [ppBlobSuffixHandler] -- ensure that make-pandoc-man-pages doesn't get installed to bindir , copyHook = \pkgdescr -> copyHook simpleUserHooks pkgdescr{ executables = [x | x <- executables pkgdescr, exeName x `notElem` noInstall] } , instHook = \pkgdescr -> instHook simpleUserHooks pkgdescr{ executables = [x | x <- executables pkgdescr, exeName x `notElem` noInstall] } , postBuild = makeReferenceFiles } where noInstall = ["make-pandoc-man-pages","make-reference-files"] ppBlobSuffixHandler :: PPSuffixHandler ppBlobSuffixHandler = ("hsb", \_ _ -> PreProcessor { platformIndependent = True, runPreProcessor = mkSimplePreProcessor $ \infile outfile verbosity -> do info verbosity $ "Preprocessing " ++ infile ++ " to " ++ outfile hsb2hsPath <- findExecutable "hsb2hs" case hsb2hsPath of Just p -> rawSystem p [infile, infile, outfile] Nothing -> error "hsb2hs is needed to build this program: cabal install hsb2hs" return () }) makeReferenceFiles :: Args -> BuildFlags -> PackageDescription -> LocalBuildInfo -> IO () makeReferenceFiles _ bf _ LocalBuildInfo{buildDir=buildDir} = mapM_ (rawSystemExit verbosity progPath . return) referenceFormats where verbosity = fromFlagOrDefault normal $ buildVerbosity bf progPath = buildDir "make-reference-files" "make-reference-files" referenceFormats = ["docx", "odt"]