Skip to content

Instantly share code, notes, and snippets.

@deque-blog
Last active October 27, 2017 16:25
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save deque-blog/9606f8ebd896c2e7d0ff490c6841a027 to your computer and use it in GitHub Desktop.
Save deque-blog/9606f8ebd896c2e7d0ff490c6841a027 to your computer and use it in GitHub Desktop.
echo : IO ()
echo = runEffect $
stdinLn "in> " -- Source
.| takingWhile (/= "quit") -- Pipe
.| deduplicating -- Pipe
.| mapping ("out> " ++) -- Pipe
.| stdoutLn -- Sink
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment