Skip to content

Instantly share code, notes, and snippets.

@donabrams

donabrams/post.hs

Last active September 6, 2016 14:34
Show Gist options
  • Save donabrams/5e2fe02033b5153d9bf2f147bdbe0e2e to your computer and use it in GitHub Desktop.
Save donabrams/5e2fe02033b5153d9bf2f147bdbe0e2e to your computer and use it in GitHub Desktop.
Download ZIP
State Machine in Haskell
Raw
post.hs
Post = Draft | PublishedPost | UnpublishedPost
publish :: Post -> PublishedPost
PublishedPost
unpublish :: Post -> UnpublishedPost
UnpublishedPost
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment