Instantly share code, notes, and snippets.

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