Skip to content

Instantly share code, notes, and snippets.

Last active November 5, 2017 18:35
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