Skip to content

Instantly share code, notes, and snippets.

What would you like to do?
scoresTagger : ScoresTagger Msg
scoresTagger =
updateWith : PersistScore Msg -> Msg -> Model -> (Model, Cmd Msg)
updateWith persistScore msg model =
case msg of
GameOver ->
(model, persistScore 4)
ReceivedScores scores ->
({ model | scores = scores }, Cmd.none)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment