Skip to content

Commit

Permalink
Print a newline after entering upload password
Browse files Browse the repository at this point in the history
So we end up with:
  Hackage password: 
  Uploading test.tar.gz...
rather than:
  Hackage password: Uploading test.tar.gz...
  • Loading branch information
dcoutts committed Jan 13, 2009
1 parent 593ba0f commit dc217c6
Showing 1 changed file with 3 additions and 1 deletion.
4 changes: 3 additions & 1 deletion Distribution/Client/Upload.hs
Expand Up @@ -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
Expand Down

0 comments on commit dc217c6

Please sign in to comment.