diff options
Diffstat (limited to 'hadrian/src/Rules/Clean.hs')
-rw-r--r-- | hadrian/src/Rules/Clean.hs | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/hadrian/src/Rules/Clean.hs b/hadrian/src/Rules/Clean.hs index d57a7967aa..26a279d178 100644 --- a/hadrian/src/Rules/Clean.hs +++ b/hadrian/src/Rules/Clean.hs @@ -3,6 +3,13 @@ module Rules.Clean (clean, cleanSourceTree, cleanRules) where import qualified System.Directory as IO import Base +distclean :: Action () +distclean = do + putBuild "| Removing mingw tarballs..." + cleanMingwTarballs + cleanFsUtils + clean + clean :: Action () clean = do putBuild "| Removing Hadrian files..." @@ -17,8 +24,6 @@ cleanSourceTree = do path <- buildRoot forM_ [Stage0 ..] $ removeDirectory . (path -/-) . stageString removeDirectory "sdistprep" - cleanFsUtils - cleanMingwTarballs cleanMingwTarballs :: Action () cleanMingwTarballs = do @@ -36,4 +41,6 @@ cleanFsUtils = do liftIO $ forM_ dirs (flip removeFiles ["fs.*"]) cleanRules :: Rules () -cleanRules = "clean" ~> clean +cleanRules = do + "clean" ~> clean + "distclean" ~> distclean |