cabal-testsuite/PackageTests/AutogenModulesToggling/Setup.hs

   1
   2 module Main (main) where
   3
   4 import Distribution.Simple
   5 import Distribution.Simple.LocalBuildInfo
   6 import Distribution.Simple.PreProcess
   7 import Distribution.Simple.Program
   8 import Distribution.Types.BuildInfo
   9 import Distribution.Verbosity
  10
  11 import System.Directory
  12
  13 ppHGen :: BuildInfo -> LocalBuildInfo -> ComponentLocalBuildInfo -> PreProcessor
  14 ppHGen _bi lbi _clbi = PreProcessor
  15   { platformIndependent = True
  16   , ppOrdering          = unsorted
  17   , runPreProcessor     = mkSimplePreProcessor $ \inFile outFile verbosity ->
  18       copyFile inFile outFile
  19   }
  20
  21 main :: IO ()
  22 main = defaultMainWithHooks simpleUserHooks
  23   { hookedPreProcessors = ("hgen", ppHGen) : hookedPreProcessors simpleUserHooks
  24   }