[commit: ghc] wip/nfs-locking: Track build rule source files initiating incremental rebuilds when code changes. (5a4b172)

[git at git.haskell.org]

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

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

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

commit 5a4b172667f27d01ae46f6dc7d9bc7097ea06605
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Mon Jan 5 00:48:32 2015 +0000

    Track build rule source files initiating incremental rebuilds when code changes.


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

5a4b172667f27d01ae46f6dc7d9bc7097ea06605
 src/Package/Data.hs         | 1 +
 src/Package/Dependencies.hs | 1 +
 2 files changed, 2 insertions(+)

diff --git a/src/Package/Data.hs b/src/Package/Data.hs
index 2d7b4b7..c95f8c9 100644
--- a/src/Package/Data.hs
+++ b/src/Package/Data.hs
@@ -56,6 +56,7 @@ buildPackageData pkg @ (Package name path _) (stage, dist, settings) =
           "build" </> "autogen" </> "cabal_macros.h",
           "build" </> "autogen" </> ("Paths_" ++ name) <.> "hs" -- TODO: Is this needed? Also check out Paths_cpsa.hs.
         ] &%> \_ -> do
+            need ["shake/src/Package/Data.hs"] -- Track changes in this file
             need [path </> name <.> "cabal"]
             when (doesFileExist $ path </> "configure.ac") $ need [path </> "configure"]
             run GhcCabal cabalArgs
diff --git a/src/Package/Dependencies.hs b/src/Package/Dependencies.hs
index 65c9b1f..99ffc34 100644
--- a/src/Package/Dependencies.hs
+++ b/src/Package/Dependencies.hs
@@ -68,6 +68,7 @@ buildPackageDependencies pkg @ (Package name path _) (stage, dist, settings) =
     let buildDir = path </> dist
     in
     (buildDir </> "build" </> name <.> "m") %> \out -> do
+        need ["shake/src/Package/Dependencies.hs"] -- Track changes in this file
         let pkgData = buildDir </> "package-data.mk"
         usePackageKey <- SupportsPackageKey || stage /= Stage0 -- TODO: check reasoning (distdir-way-opts)
         [mods, srcDirs, includeDirs, deps, depKeys] <-