[commit: Cabal] : Remove now-unused compat module (915897c)

[Ian Lynagh]

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

On branch  : 

http://hackage.haskell.org/trac/ghc/changeset/915897cbf6894dc8b29599cd2494f5155424427c

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

commit 915897cbf6894dc8b29599cd2494f5155424427c
Author: Duncan Coutts <duncan at haskell.org>
Date:   Tue Dec 22 13:09:59 2009 +0000

    Remove now-unused compat module

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

 cabal-install/Distribution/Compat/TempFile.hs |   43 -------------------------
 cabal-install/cabal-install.cabal             |    1 -
 2 files changed, 0 insertions(+), 44 deletions(-)

diff --git a/cabal-install/Distribution/Compat/TempFile.hs b/cabal-install/Distribution/Compat/TempFile.hs
deleted file mode 100644
index cbd11c2..0000000
--- a/cabal-install/Distribution/Compat/TempFile.hs
+++ /dev/null
@@ -1,43 +0,0 @@
-{-# LANGUAGE CPP #-}
-{-# OPTIONS_GHC -cpp #-}
-{-# OPTIONS_NHC98 -cpp #-}
-{-# OPTIONS_JHC -fcpp #-}
--- #hide
-module Distribution.Compat.TempFile (
-  createTempDirectory,
-  ) where
-
-import System.FilePath        ((</>))
-#ifdef mingw32_HOST_OS
-import System.Directory       (createDirectory)
-#else
-import System.Posix.Directory (createDirectory)
-#endif
-import System.IO.Error        (try, isAlreadyExistsError)
-
-#if __NHC__
-import System.Posix.Types     (CPid(..))
-foreign import ccall unsafe "getpid" c_getpid :: IO CPid
-#else
-import System.Posix.Internals (c_getpid)
-#endif
-
-createTempDirectory :: FilePath -> String -> IO FilePath
-createTempDirectory dir template = do
-  pid <- c_getpid
-  findTempName pid
-  where
-    findTempName x = do
-      let dirpath = dir </> template ++ show x
-      r <- try $ mkPrivateDir dirpath
-      case r of
-        Right _ -> return dirpath
-        Left  e | isAlreadyExistsError e -> findTempName (x+1)
-                | otherwise              -> ioError e
-
-mkPrivateDir :: String -> IO ()
-#ifdef mingw32_HOST_OS
-mkPrivateDir s = System.Directory.createDirectory s
-#else
-mkPrivateDir s = System.Posix.Directory.createDirectory s 0o700
-#endif
diff --git a/cabal-install/cabal-install.cabal b/cabal-install/cabal-install.cabal
index a879da7..4e1b5e4 100644
--- a/cabal-install/cabal-install.cabal
+++ b/cabal-install/cabal-install.cabal
@@ -80,7 +80,6 @@ Executable cabal
         Distribution.Client.Utils
         Distribution.Client.Win32SelfUpgrade
         Distribution.Compat.Exception
-        Distribution.Compat.TempFile
         Paths_cabal_install
 
     build-depends: base     >= 2        && < 5,