[commit: Cabal] master: Print a newline after entering upload password (579d754)
Ian Lynagh
igloo at earth.li
Fri Jun 24 02:01:29 CEST 2011
Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal
On branch : master
http://hackage.haskell.org/trac/ghc/changeset/579d7541582790bcb2ab8a8571835e63af07685e
>---------------------------------------------------------------
commit 579d7541582790bcb2ab8a8571835e63af07685e
Author: Duncan Coutts <duncan at haskell.org>
Date: Tue Jan 13 14:26:04 2009 +0000
Print a newline after entering upload password
So we end up with:
Hackage password:
Uploading test.tar.gz...
rather than:
Hackage password: Uploading test.tar.gz...
>---------------------------------------------------------------
cabal-install/Distribution/Client/Upload.hs | 4 +++-
1 files changed, 3 insertions(+), 1 deletions(-)
diff --git a/cabal-install/Distribution/Client/Upload.hs b/cabal-install/Distribution/Client/Upload.hs
index 709f762..bb17457 100644
--- a/cabal-install/Distribution/Client/Upload.hs
+++ b/cabal-install/Distribution/Client/Upload.hs
@@ -73,9 +73,11 @@ upload verbosity repos mUsername mPassword paths = do
putStr "Hackage password: "
hFlush stdout
-- save/restore the terminal echoing status
- bracket (hGetEcho stdin) (hSetEcho stdin) $ \_ -> do
+ passwd <- bracket (hGetEcho stdin) (hSetEcho stdin) $ \_ -> do
hSetEcho stdin False -- no echoing for entering the password
fmap Password getLine
+ putStrLn ""
+ return passwd
report :: Verbosity -> [Repo] -> IO ()
report verbosity repos
More information about the Cvs-libraries
mailing list