diff options
Diffstat (limited to 'src/Hakyll/Commands.hs')
| -rw-r--r-- | src/Hakyll/Commands.hs | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/Hakyll/Commands.hs b/src/Hakyll/Commands.hs index b7e85bc..61e40b8 100644 --- a/src/Hakyll/Commands.hs +++ b/src/Hakyll/Commands.hs @@ -13,9 +13,6 @@ module Hakyll.Commands -------------------------------------------------------------------------------- -import Control.Monad (when) -import System.Directory (doesDirectoryExist, - removeDirectoryRecursive) import System.Exit (exitWith) import System.Process (system) @@ -26,6 +23,7 @@ import Hakyll.Core.Configuration import Hakyll.Core.Logger (Verbosity) import Hakyll.Core.Rules import Hakyll.Core.Runtime +import Hakyll.Core.Util.File -------------------------------------------------------------------------------- @@ -59,11 +57,11 @@ clean :: Configuration -> IO () clean conf = do remove $ destinationDirectory conf remove $ storeDirectory conf + remove $ tmpDirectory conf where remove dir = do putStrLn $ "Removing " ++ dir ++ "..." - exists <- doesDirectoryExist dir - when exists $ removeDirectoryRecursive dir + removeDirectory dir -------------------------------------------------------------------------------- |