Skip to content

Instantly share code, notes, and snippets.

@deque-blog
Last active November 5, 2017 18:35
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
Embed
What would you like to do?
interpret : IOSpec r -> IO r
interpret (Pure a) = pure a
interpret (ReadLine cont) = do
l <- getLine
interpret (cont l)
interpret (WriteLine s next) = do
putStrLn s
interpret next
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment