Commit 9a6f41ce authored by Neil Mitchell's avatar Neil Mitchell Committed by Andrey Mokhov
Browse files

Fix clean so it works on Windows (#679)

parent 06f3206e
module Rules.Clean (clean, cleanSourceTree, cleanRules) where
import qualified System.Directory as IO
import Base
clean :: Action ()
......@@ -7,7 +8,8 @@ clean = do
putBuild "| Removing Hadrian files..."
cleanSourceTree
path <- buildRoot
removeDirectory path
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 ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment