Skip to content

Instantly share code, notes, and snippets.

@noelrappin

noelrappin/unedit_editable.elm

Created August 8, 2017 16:16
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 noelrappin/1a7f0736fc817e2fda9894851efd3ab9 to your computer and use it in GitHub Desktop.
Save noelrappin/1a7f0736fc817e2fda9894851efd3ab9 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
unedit_editable.elm
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