Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
save : Editable -> Editable
save x =
case x of
BeingEdited _ new ->
NotBeingEdited new
NotBeingEdited _ ->
x
cancel : Editable -> Editable
cancel x =
case x of
BeingEdited old _ ->
NotBeingEdited old
NotBeingEdited _ ->
x
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.