Skip to content

Instantly share code, notes, and snippets.

@clinuxrulz
Created March 17, 2016 01:00
Show Gist options
  • Save clinuxrulz/1bdaac446ce3183e5ee1 to your computer and use it in GitHub Desktop.
Save clinuxrulz/1bdaac446ce3183e5ee1 to your computer and use it in GitHub Desktop.
resume <- callCC (\bail -> do
let suspend = callCC (\k -> bail $ k unit)
suspend
return (return unit)
)
resume
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment