[commit: ghc] wip/nfs-locking: Rename includeHcArgs to includeGhcArgs. (734994c)

git at git.haskell.org git at git.haskell.org
Thu Oct 26 23:24:52 UTC 2017


Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/nfs-locking
Link       : http://ghc.haskell.org/trac/ghc/changeset/734994cf18ee377472128ceab7ad6ef1f8773684/ghc

>---------------------------------------------------------------

commit 734994cf18ee377472128ceab7ad6ef1f8773684
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Sat Jan 17 23:31:52 2015 +0000

    Rename includeHcArgs to includeGhcArgs.


>---------------------------------------------------------------

734994cf18ee377472128ceab7ad6ef1f8773684
 src/Package/Base.hs         | 6 +++---
 src/Package/Compile.hs      | 2 +-
 src/Package/Dependencies.hs | 6 +-----
 3 files changed, 5 insertions(+), 9 deletions(-)

diff --git a/src/Package/Base.hs b/src/Package/Base.hs
index 0b053e8..9d75e04 100644
--- a/src/Package/Base.hs
+++ b/src/Package/Base.hs
@@ -7,7 +7,7 @@ module Package.Base (
     Package (..), Settings (..), TodoItem (..),
     defaultSettings, libraryPackage,
     commonCcArgs, commonLdArgs, commonCppArgs, commonCcWarninigArgs,
-    pathArgs, packageArgs, includeHcArgs, pkgHsSources,
+    pathArgs, packageArgs, includeGhcArgs, pkgHsSources,
     pkgDepHsObjects, pkgLibHsObjects, pkgCObjects,
     argSizeLimit,
     sourceDependecies,
@@ -92,8 +92,8 @@ packageArgs stage pathDist = do
            else productArgs "-package-name"     (arg  $ PackageKey pathDist)
              <> productArgs "-package"          (args $ Deps       pathDist) ]
 
-includeHcArgs :: FilePath -> FilePath -> Args
-includeHcArgs path dist =
+includeGhcArgs :: FilePath -> FilePath -> Args
+includeGhcArgs path dist =
     let pathDist = path </> dist
         buildDir = toStandard $ pathDist </> "build"
     in args [ arg "-i"
diff --git a/src/Package/Compile.hs b/src/Package/Compile.hs
index 0c25ae8..8052356 100644
--- a/src/Package/Compile.hs
+++ b/src/Package/Compile.hs
@@ -18,7 +18,7 @@ ghcArgs (Package _ path _) (stage, dist, _) way srcs result =
             , wayHcArgs way
             , args SrcHcArgs
             , packageArgs stage pathDist
-            , includeHcArgs path dist
+            , includeGhcArgs path dist
             , concatArgs ["-optP"] $ CppArgs pathDist
             , args $ HsArgs pathDist
             -- TODO: now we have both -O and -O2
diff --git a/src/Package/Dependencies.hs b/src/Package/Dependencies.hs
index 7378f20..7301051 100644
--- a/src/Package/Dependencies.hs
+++ b/src/Package/Dependencies.hs
@@ -13,7 +13,7 @@ ghcArgs (Package name path _) (stage, dist, settings) =
         depFile  = buildDir </> "haskell.deps"
     in args [ arg "-M"
             , packageArgs stage pathDist
-            , includeHcArgs path dist
+            , includeGhcArgs path dist
             , concatArgs ["-optP"] $ CppArgs pathDist
             , productArgs ["-odir", "-stubdir", "-hidir"] buildDir
             , args ["-dep-makefile", depFile <.> "new"]
@@ -21,10 +21,6 @@ ghcArgs (Package name path _) (stage, dist, settings) =
             , args $ HsArgs pathDist
             , args $ pkgHsSources path dist ]
 
---    $(CPP) $($1_$2_MKDEPENDC_OPTS)
--- $($1_$2_$(firstword $($1_$2_WAYS))_ALL_CC_OPTS)
--- $($(basename $4)_CC_OPTS) -MM -x c $4 -MF $3.bit
---
 -- $1_$2_$3_ALL_CC_OPTS = \
 -- $$(WAY_$3_CC_OPTS) \
 -- $$($1_$2_DIST_GCC_CC_OPTS) \



More information about the ghc-commits mailing list