Commit db11fb04 authored by Neil Mitchell's avatar Neil Mitchell
Browse files

Add removeDirectory to Rules/Actions, seems to fit

parent 86f3052c
{-# LANGUAGE RecordWildCards #-}
module Rules.Actions (
build, buildWithResources, copyFile, createDirectory, moveDirectory,
build, buildWithResources, copyFile, createDirectory, removeDirectory, moveDirectory,
fixFile, runConfigure, runMake, runBuilder, makeExecutable
) where
......@@ -74,6 +74,11 @@ createDirectory dir = do
putBuild $ "| Create directory " ++ dir
liftIO $ IO.createDirectoryIfMissing True dir
removeDirectory :: FilePath -> Action ()
removeDirectory dir = do
putBuild $ "| Remove directory " ++ dir
liftIO $ IO.removeDirectoryRecursive dir
-- Note, the source directory is untracked
moveDirectory :: FilePath -> FilePath -> Action ()
moveDirectory source target = do
......
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