Skip to content

Commit

Permalink
Remove use of tabs
Browse files Browse the repository at this point in the history
  • Loading branch information
dcoutts committed Nov 22, 2008
1 parent df1b3b3 commit b9f6739
Show file tree
Hide file tree
Showing 2 changed files with 6 additions and 6 deletions.
2 changes: 1 addition & 1 deletion Distribution/Client/Fetch.hs
Expand Up @@ -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
Expand Down
10 changes: 5 additions & 5 deletions Distribution/Client/Install.hs
Expand Up @@ -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
Expand Down

0 comments on commit b9f6739

Please sign in to comment.