Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal On branch :
http://hackage.haskell.org/trac/ghc/changeset/915897cbf6894dc8b29599cd2494f5155424427c >--------------------------------------------------------------- commit 915897cbf6894dc8b29599cd2494f5155424427c Author: Duncan Coutts <[email protected]> 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, _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
