Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal On branch : master
http://hackage.haskell.org/trac/ghc/changeset/e36e930299c8fcc1d1da98d8af288ab040893b74 >--------------------------------------------------------------- commit e36e930299c8fcc1d1da98d8af288ab040893b74 Author: Lemmih <[email protected]> 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 () _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
