REPL> botSequence .| password 3 (== "Scotty") | |
WriteLine "Password:" | |
(WriteLine "Spock" | |
(WriteLine "Login failed: 1 attempt(s)." | |
(WriteLine "Password:" | |
(WriteLine "Search again..." | |
(ReadLine (\x => | |
WriteLine "Scotty" | |
(WriteLine "Successful login after 2 attempt(s)." | |
(Pure True)))))))) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment