Skip to content

Instantly share code, notes, and snippets.

@deque-blog
Last active November 5, 2017 18:35
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/8cad537eb1b92f9a204c6c5954018946 to your computer and use it in GitHub Desktop.
Save deque-blog/8cad537eb1b92f9a204c6c5954018946 to your computer and use it in GitHub Desktop.
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