[commit: Cabal] master: Only look at .log files. (1d0dcc1)

[Ian Lynagh]

Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/1d0dcc125b4f3d72f45f9018443d6eb58e711926

>---------------------------------------------------------------

commit 1d0dcc125b4f3d72f45f9018443d6eb58e711926
Author: Lemmih <lemmih at gmail.com>
Date:   Fri Aug 8 15:26:12 2008 +0000

    Only look at .log files.

>---------------------------------------------------------------

 cabal-install/Distribution/Client/Upload.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/cabal-install/Distribution/Client/Upload.hs b/cabal-install/Distribution/Client/Upload.hs
index f5dccd7..68899e5 100644
--- a/cabal-install/Distribution/Client/Upload.hs
+++ b/cabal-install/Distribution/Client/Upload.hs
@@ -84,7 +84,7 @@ report verbosity repos
             -> do dotCabal <- defaultCabalDir
                   let srcDir = dotCabal </> "reports" </> remoteRepoName remoteRepo
                   contents <- getDirectoryContents srcDir
-                  forM_ contents $ \logFile ->
+                  forM_ (filter (\c -> takeExtension c == ".log") contents) $ \logFile ->
                       do inp <- readFile (srcDir </> logFile)
                          let (reportStr, buildLog) = read inp
                          case BuildReport.parse reportStr of