passPrompt :: IO Password
passPrompt = do
  TIO.putStr "What password do you wish to store? "
  hFlush stdout
  hSetEcho stdin False
  p <- TIO.getLine
  hSetEcho stdin True
  return . Password $ p
passPrompt :: IO Password
passPrompt = do
  TIO.putStr "What password do you wish to store? "
  hFlush stdout
  hSetEcho stdin False
  p <- TIO.getLine
  hSetEcho stdin True
  return . Password $ p
passPrompt = do
  TIO.putStr "What password do you wish to store? "
  hFlush stdout
  hSetEcho stdin False
  p <- TIO.getLine
  hSetEcho stdin True
  return . Password $ p