[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