| echo : IO () | |
| echo = runEffect $ | |
| stdinLn "in> " | |
| .| takingWhile (/= "quit") | |
| .| deduplicating -- Remove consecutive repeating calls | |
| .| mapping ("out> " ++) | |
| .| stdoutLn |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment