Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal On branch : master
http://hackage.haskell.org/trac/ghc/changeset/a5e463dee6da4a1c0d58a5d021fdec7a9cb10604 >--------------------------------------------------------------- commit a5e463dee6da4a1c0d58a5d021fdec7a9cb10604 Author: Duncan Coutts <[email protected]> Date: Sat Nov 22 16:35:27 2008 +0000 Remove use of tabs >--------------------------------------------------------------- cabal-install/Distribution/Client/Fetch.hs | 2 +- cabal-install/Distribution/Client/Install.hs | 10 +++++----- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/cabal-install/Distribution/Client/Fetch.hs b/cabal-install/Distribution/Client/Fetch.hs index 0bcd3e1..d3ed044 100644 --- a/cabal-install/Distribution/Client/Fetch.hs +++ b/cabal-install/Distribution/Client/Fetch.hs @@ -113,7 +113,7 @@ downloadIndex :: Verbosity -> RemoteRepo -> FilePath -> IO FilePath downloadIndex verbosity repo cacheDir = do let uri = (remoteRepoURI repo) { uriPath = uriPath (remoteRepoURI repo) - `FilePath.Posix.combine` "00-index.tar.gz" + `FilePath.Posix.combine` "00-index.tar.gz" } path = cacheDir </> "00-index" <.> "tar.gz" createDirectoryIfMissing True cacheDir diff --git a/cabal-install/Distribution/Client/Install.hs b/cabal-install/Distribution/Client/Install.hs index d897342..4b90787 100644 --- a/cabal-install/Distribution/Client/Install.hs +++ b/cabal-install/Distribution/Client/Install.hs @@ -550,11 +550,11 @@ installUnpackedPackage verbosity scriptOptions miscOptions logFileHandle <- case useLogFile of Nothing -> return Nothing Just mkLogFileName -> do - let logFileName = mkLogFileName (packageId pkg) - logDir = takeDirectory logFileName - unless (null logDir) $ createDirectoryIfMissing True logDir - logFile <- openFile logFileName AppendMode - return (Just logFile) + let logFileName = mkLogFileName (packageId pkg) + logDir = takeDirectory logFileName + unless (null logDir) $ createDirectoryIfMissing True logDir + logFile <- openFile logFileName AppendMode + return (Just logFile) setupWrapper verbosity scriptOptions { useLoggingHandle = logFileHandle _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
