diff --git a/Cabal/Distribution/Simple/Build.hs b/Cabal/Distribution/Simple/Build.hs index 678100fe42794b7fca2ccc365a1549a185c7eadb..95c576a5781479af01e68431353c25c3bbaf6659 100644 --- a/Cabal/Distribution/Simple/Build.hs +++ b/Cabal/Distribution/Simple/Build.hs @@ -52,8 +52,8 @@ import qualified Distribution.Simple.UHC as UHC import qualified Distribution.Simple.HaskellSuite as HaskellSuite import qualified Distribution.Simple.PackageIndex as Index -import qualified Distribution.Simple.Build.Macros as Build.Macros -import qualified Distribution.Simple.Build.PathsModule as Build.PathsModule +import Distribution.Simple.Build.Macros (generateCabalMacrosHeader) +import Distribution.Simple.Build.PathsModule (generatePathsModule) import qualified Distribution.Simple.Program.HcPkg as HcPkg import Distribution.Simple.Compiler hiding (Flag) @@ -662,7 +662,7 @@ writeAutogenFiles verbosity pkg lbi clbi = do pathsModuleDir = takeDirectory pathsModulePath -- Ensure that the directory exists! createDirectoryIfMissingVerbose verbosity True pathsModuleDir - rewriteFileEx verbosity pathsModulePath (Build.PathsModule.generate pkg lbi clbi) + rewriteFileEx verbosity pathsModulePath (generatePathsModule pkg lbi clbi) --TODO: document what we're doing here, and move it to its own function case clbi of @@ -684,4 +684,4 @@ writeAutogenFiles verbosity pkg lbi clbi = do _ -> return () let cppHeaderPath = autogenComponentModulesDir lbi clbi </> cppHeaderName - rewriteFileEx verbosity cppHeaderPath (Build.Macros.generate pkg lbi clbi) + rewriteFileEx verbosity cppHeaderPath (generateCabalMacrosHeader pkg lbi clbi) diff --git a/Cabal/Distribution/Simple/Build/Macros.hs b/Cabal/Distribution/Simple/Build/Macros.hs index 88040ea9cb29e4babe17bc5e245860080e350335..fa3ba3f5274b422d8243f689768a15defe668913 100644 --- a/Cabal/Distribution/Simple/Build/Macros.hs +++ b/Cabal/Distribution/Simple/Build/Macros.hs @@ -20,7 +20,7 @@ -- TODO Figure out what to do about backpack and internal libraries. It is very -- suspecious that this stuff works with munged package identifiers module Distribution.Simple.Build.Macros ( - generate, + generateCabalMacrosHeader, generatePackageVersionMacros, ) where @@ -73,8 +73,8 @@ ifndefDefineStr macro str = -- | The contents of the @cabal_macros.h@ for the given configured package. -- -generate :: PackageDescription -> LocalBuildInfo -> ComponentLocalBuildInfo -> String -generate pkg_descr lbi clbi = +generateCabalMacrosHeader :: PackageDescription -> LocalBuildInfo -> ComponentLocalBuildInfo -> String +generateCabalMacrosHeader pkg_descr lbi clbi = "/* DO NOT EDIT: This file is automatically generated by Cabal */\n\n" ++ generatePackageVersionMacros (package pkg_descr : map getPid (componentPackageDeps clbi)) ++ diff --git a/Cabal/Distribution/Simple/Build/PathsModule.hs b/Cabal/Distribution/Simple/Build/PathsModule.hs index 783891e3667c30f441bdfe0651cf5fd641618a75..5e660e8d655a73589fed27754d263a6d256232e3 100644 --- a/Cabal/Distribution/Simple/Build/PathsModule.hs +++ b/Cabal/Distribution/Simple/Build/PathsModule.hs @@ -15,7 +15,7 @@ -- at runtime. This code should probably be split off into another module. -- module Distribution.Simple.Build.PathsModule ( - generate, pkgPathEnvVar + generatePathsModule, pkgPathEnvVar ) where import Prelude () @@ -37,8 +37,8 @@ import System.FilePath ( pathSeparator ) -- * Building Paths_<pkg>.hs -- ------------------------------------------------------------ -generate :: PackageDescription -> LocalBuildInfo -> ComponentLocalBuildInfo -> String -generate pkg_descr lbi clbi = +generatePathsModule :: PackageDescription -> LocalBuildInfo -> ComponentLocalBuildInfo -> String +generatePathsModule pkg_descr lbi clbi = let pragmas = cpp_pragma ++ no_rebindable_syntax_pragma