1 files changed, 34 insertions, 0 deletions
diff --git a/hadrian/src/Rules/Clean.hs b/hadrian/src/Rules/Clean.hs
new file mode 100644
index 0000000000..abf6933b56
--- /dev/null
+++ b/hadrian/src/Rules/Clean.hs
@@ -0,0 +1,34 @@
+module Rules.Clean (clean, cleanSourceTree, cleanRules) where
+
+import qualified System.Directory as IO
+import Base
+
+clean :: Action ()
+clean = do
+    putBuild "| Removing Hadrian files..."
+    cleanSourceTree
+    path <- buildRoot
+    putBuild $ "| Remove directory " ++ path ++ " (after build completes)"
+    runAfter $ IO.removeDirectoryRecursive path -- since we can't delete the Shake database while Shake is running
+    putSuccess "| Done. "
+
+cleanSourceTree :: Action ()
+cleanSourceTree = do
+    path <- buildRoot
+    forM_ [Stage0 ..] $ removeDirectory . (path -/-) . stageString
+    removeDirectory "sdistprep"
+    cleanFsUtils
+
+-- Clean all temporary fs files copied by configure into the source folder
+cleanFsUtils :: Action ()
+cleanFsUtils = do
+    let dirs = [ "utils/lndir/"
+               , "utils/unlit/"
+               , "rts/"
+               , "libraries/base/include/"
+               , "libraries/base/cbits/"
+               ]
+    liftIO $ forM_ dirs (flip removeFiles ["fs.*"])
+
+cleanRules :: Rules ()
+cleanRules = "clean" ~> clean