Commit a8ea5246 authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Use removeFiles instead of removeFilesAfter.

See #131.
parent a730d9bd
......@@ -12,13 +12,13 @@ cleanRules :: Rules ()
cleanRules = do
"clean" ~> do
putBuild $ "| Remove files in " ++ buildRootPath ++ "..."
removeFilesAfter buildRootPath ["//*"]
liftIO $ removeFiles buildRootPath ["//*"]
putBuild $ "| Remove files in " ++ programInplacePath ++ "..."
removeFilesAfter programInplacePath ["//*"]
liftIO $ removeFiles programInplacePath ["//*"]
putBuild $ "| Remove files in inplace/lib..."
removeFilesAfter "inplace/lib" ["//*"]
liftIO $ removeFiles "inplace/lib" ["//*"]
putBuild $ "| Remove files in " ++ derivedConstantsPath ++ "..."
removeFilesAfter derivedConstantsPath ["//*"]
liftIO $ removeFiles derivedConstantsPath ["//*"]
forM_ includesDependencies $ \file -> do
putBuild $ "| Remove " ++ file
removeFileIfExists file
......
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