[commit: Cabal] master: silly types. (e36e930)

[Ian Lynagh]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/e36e930299c8fcc1d1da98d8af288ab040893b74

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

commit e36e930299c8fcc1d1da98d8af288ab040893b74
Author: Lemmih <lemmih at gmail.com>
Date:   Fri Aug 8 15:32:44 2008 +0000

    silly types.

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

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

diff --git a/cabal-install/Distribution/Client/Upload.hs b/cabal-install/Distribution/Client/Upload.hs
index 68899e5..8daa119 100644
--- a/cabal-install/Distribution/Client/Upload.hs
+++ b/cabal-install/Distribution/Client/Upload.hs
@@ -86,12 +86,12 @@ report verbosity repos
                   contents <- getDirectoryContents srcDir
                   forM_ (filter (\c -> takeExtension c == ".log") contents) $ \logFile ->
                       do inp <- readFile (srcDir </> logFile)
-                         let (reportStr, buildLog) = read inp
+                         let (reportStr, buildLog) = read inp :: (String,String)
                          case BuildReport.parse reportStr of
                            Left errs -> do warn verbosity $ "Errors: " ++ errs -- FIXME
                            Right report ->
                                do info verbosity $ "Uploading report for " ++ display (BuildReport.package report)
-                                  browse $ BuildReport.uploadReports (remoteRepoURI remoteRepo) [(report, buildLog)]
+                                  browse $ BuildReport.uploadReports (remoteRepoURI remoteRepo) [(report, Just buildLog)]
                                   return ()
         Right{} -> return ()