[commit: Cabal] master: Remove the unused module Distribution.Client.Clean (97878b8)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/97878b88f8cc9db155bc3725f426386036101810

>---------------------------------------------------------------

commit 97878b88f8cc9db155bc3725f426386036101810
Author: Duncan Coutts <duncan at haskell.org>
Date:   Sat Aug 2 01:39:57 2008 +0000

    Remove the unused module Distribution.Client.Clean

>---------------------------------------------------------------

 cabal-install/Distribution/Client/Clean.hs |   29 ----------------------------
 cabal-install/cabal-install.cabal          |    1 -
 2 files changed, 0 insertions(+), 30 deletions(-)

diff --git a/cabal-install/Distribution/Client/Clean.hs b/cabal-install/Distribution/Client/Clean.hs
deleted file mode 100644
index dcf829b..0000000
--- a/cabal-install/Distribution/Client/Clean.hs
+++ /dev/null
@@ -1,29 +0,0 @@
------------------------------------------------------------------------------
--- |
--- Module      :  Distribution.Client.Clean
--- Copyright   :  (c) David Himmelstrup 2005
--- License     :  BSD-like

>---------------------------------------------------------------

--- Maintainer  :  lemmih at 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 ()))
diff --git a/cabal-install/cabal-install.cabal b/cabal-install/cabal-install.cabal
index 831f5ef..e8f9e33 100644
--- a/cabal-install/cabal-install.cabal
+++ b/cabal-install/cabal-install.cabal
@@ -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