| 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