Skip to content

Instantly share code, notes, and snippets.

@clinuxrulz

clinuxrulz/SuspendResumeCallCC.purs

Created March 17, 2016 01:00
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 clinuxrulz/1bdaac446ce3183e5ee1 to your computer and use it in GitHub Desktop.
Save clinuxrulz/1bdaac446ce3183e5ee1 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
SuspendResumeCallCC.purs
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