[commit: Cabal] master: Remove use of tabs (a5e463d)
Ian Lynagh
igloo at earth.li
Fri Jun 24 02:00:38 CEST 2011
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 <duncan at haskell.org>
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
More information about the Cvs-libraries
mailing list