[commit: Cabal] master: Remove most warnings from BuildReports.Upload module (748f965)

[Ian Lynagh]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/748f9658fb8cdf61107c2e7420a9c4d20a67d6ae

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

commit 748f9658fb8cdf61107c2e7420a9c4d20a67d6ae
Author: Duncan Coutts <duncan at haskell.org>
Date:   Sun Aug 10 21:17:05 2008 +0000

    Remove most warnings from BuildReports.Upload module

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

 .../Distribution/Client/BuildReports/Upload.hs     |   21 +++----------------
 1 files changed, 4 insertions(+), 17 deletions(-)

diff --git a/cabal-install/Distribution/Client/BuildReports/Upload.hs b/cabal-install/Distribution/Client/BuildReports/Upload.hs
index c8c855e..861e3b7 100644
--- a/cabal-install/Distribution/Client/BuildReports/Upload.hs
+++ b/cabal-install/Distribution/Client/BuildReports/Upload.hs
@@ -9,30 +9,17 @@ module Distribution.Client.BuildReports.Upload
     , putBuildLog
     ) where
 
-import Distribution.Client.Types (Username(..), Password(..))
-import Distribution.Client.HttpUtils (proxy)
-
-import Distribution.Simple.Utils (debug, notice, warn)
-import Distribution.Verbosity (Verbosity)
-
 import Network.Browser
-         ( BrowserAction, browse, request
-         , Authority(..), addAuthority, setAuthorityGen
-         , setOutHandler, setErrHandler, setProxy
-         , setAllowRedirects )
+         ( BrowserAction, request, setAllowRedirects )
 import Network.HTTP
          ( Header(..), HeaderName(..)
          , Request(..), RequestMethod(..), Response(..) )
-import Network.URI (URI, uriPath, parseURI,parseRelativeReference, relativeTo)
+import Network.URI (URI, uriPath, parseRelativeReference, relativeTo)
 
-import Data.Char        (intToDigit)
-import Numeric          (showHex)
-import System.IO        (hFlush, stdin, stdout, hGetEcho, hSetEcho
-                        ,openBinaryFile, IOMode(ReadMode), hGetContents)
-import Control.Exception (bracket)
 import Control.Monad
-import System.Random    (randomRIO)
+         ( forM_ )
 import System.FilePath.Posix
+         ( (</>) )
 import qualified Distribution.Client.BuildReports.Anonymous as BuildReport
 import Distribution.Client.BuildReports.Anonymous (BuildReport)