password : Nat -> (String -> Bool) -> IO Bool | |
password maxAttempt valid = do | |
putStrLn "Password:" -- Ask the user for a password | |
attempt <- getLine -- Read the password entered by the user | |
if valid attempt -- In case of valid password: | |
-- More code |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment