stdinLn "in> " | |
.| takingWhile (/= "quit") | |
.| mapping ("out> " ++) | |
.| stdoutLn |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
stdinLn "in> " | |
.| takingWhile (/= "quit") | |
.| mapping ("out> " ++) | |
.| stdoutLn |