module Main exposing (..)


type Msg
  = AddVoteResponse (Result Error Model)


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
  case msg of
    -- AddVoteResponse (Ok { girlVotes, boyVotes }) ->
    --   let
    --     model_ =
    --       { model | girlVotes = girlVotes, boyVotes = boyVotes }
    --         |> recalculate
    --   in
    --     model_ ! []
    AddVoteResponse (Ok model_) ->
      model_ |> recalculate ! []