getNewPassword :: IO String
getNewPassword = do
    newPass <- genNewPassword defaultLen <$> newStdGen
    flushStr $ "Password (default: " ++ newPass ++ " ):"
    password <- getLine
    if null password
        then do
            setClipboard newPass
            putStrLn $ newPass ++ "\t\t - copied to clipboard"
            return newPass
        else return password
  where
    defaultLen = 20
getNewPassword :: IO String
getNewPassword = do
    newPass <- genNewPassword defaultLen <$> newStdGen
    flushStr $ "Password (default: " ++ newPass ++ " ):"
    password <- getLine
    if null password
        then do
            setClipboard newPass
            putStrLn $ newPass ++ "\t\t - copied to clipboard"
            return newPass
        else return password
  where
    defaultLen = 20
getNewPassword = do
    newPass <- genNewPassword defaultLen <$> newStdGen
    flushStr $ "Password (default: " ++ newPass ++ " ):"
    password <- getLine
    if null password
        then do
            setClipboard newPass
            putStrLn $ newPass ++ "\t\t - copied to clipboard"
            return newPass
        else return password
  where
    defaultLen = 20