Commit 0ea54521 authored by Duncan Coutts's avatar Duncan Coutts
Browse files

Remove the unused module Distribution.Client.Clean

parent 57024727
-----------------------------------------------------------------------------
-- |
-- Module : Distribution.Client.Clean
-- Copyright : (c) David Himmelstrup 2005
-- License : BSD-like
--
-- Maintainer : lemmih@gmail.com
-- Stability : provisional
-- Portability : portable
--
--
-----------------------------------------------------------------------------
module Distribution.Client.Clean
( clean
) where
import Distribution.Client.Types (ConfigFlags(..))
import Distribution.Client.Utils (fileNotFoundExceptions)
import System.Directory (removeDirectoryRecursive)
import Control.Exception (catchJust)
-- | 'clean' removes all downloaded packages from the {config-dir}\/packages\/ directory.
clean :: ConfigFlags -> IO ()
clean cfg
= catchJust fileNotFoundExceptions
(removeDirectoryRecursive (configCacheDir cfg))
-- The packages dir may not exist if it's already cleaned:
(const (return ()))
......@@ -37,7 +37,6 @@ Executable cabal
Ghc-Options: -Wall -fno-ignore-asserts
Other-Modules:
Distribution.Client.Check
-- Distribution.Client.Clean
Distribution.Client.Config
Distribution.Client.Dependency
Distribution.Client.Dependency.Bogus
......
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