[commit: ghc] wip/nfs-locking: Drop redundant clean up after ghc-cabal (e93f7a4)

git at git.haskell.org git at git.haskell.org
Fri Oct 27 00:28:14 UTC 2017


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

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

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

commit e93f7a4181308147b3d2c9211eb6d63e51cea188
Author: Andrey Mokhov <andrey.mokhov at gmail.com>
Date:   Sun Nov 27 00:32:02 2016 +0000

    Drop redundant clean up after ghc-cabal
    
    See #113


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

e93f7a4181308147b3d2c9211eb6d63e51cea188
 src/Rules/Clean.hs | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/src/Rules/Clean.hs b/src/Rules/Clean.hs
index eebb26d..a2cf849 100644
--- a/src/Rules/Clean.hs
+++ b/src/Rules/Clean.hs
@@ -1,8 +1,6 @@
 module Rules.Clean (cleanRules) where
 
 import Base
-import Package
-import Settings
 import Settings.Path
 import Stage
 import UserSettings
@@ -16,10 +14,6 @@ cleanRules = do
         removeDirectory programInplacePath
         removeDirectory "inplace/lib"
         removeDirectory "sdistprep"
-        putBuild $ "| Remove files generated by ghc-cabal..."
-        forM_ knownPackages $ \pkg ->
-            forM_ [Stage0 ..] $ \stage ->
-                quietly . removeDirectory $ pkgPath pkg -/- stageDirectory stage
         putBuild $ "| Remove Hadrian files..."
         removeFilesAfter buildRootPath ["//*"]
         putSuccess $ "| Done. "



More information about the ghc-commits mailing list