Skip to content

Instantly share code, notes, and snippets.

@stevekrouse
Created July 17, 2018 14:04
Show Gist options
  • Select an option

  • Save stevekrouse/0e07c0da9803b7386612fa6eb2dc8275 to your computer and use it in GitHub Desktop.

Select an option

Save stevekrouse/0e07c0da9803b7386612fa6eb2dc8275 to your computer and use it in GitHub Desktop.
-- model
count = 0
--reducer
update msg count =
case msg of
Increment ->
count + 1
-- view
view count = intButton [ onClick Increment ] count
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment