Commit 45b4dc62 authored by Duncan Coutts's avatar Duncan Coutts
Browse files

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...
parent d4230dd8
...@@ -73,9 +73,11 @@ upload verbosity repos mUsername mPassword paths = do ...@@ -73,9 +73,11 @@ upload verbosity repos mUsername mPassword paths = do
putStr "Hackage password: " putStr "Hackage password: "
hFlush stdout hFlush stdout
-- save/restore the terminal echoing status -- 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 hSetEcho stdin False -- no echoing for entering the password
fmap Password getLine fmap Password getLine
putStrLn ""
return passwd
report :: Verbosity -> [Repo] -> IO () report :: Verbosity -> [Repo] -> IO ()
report verbosity repos report verbosity repos
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment