module LoggedIn.Stat.Update exposing
  ( update
  )

import LoggedData exposing (LoggedData)
import LoggedIn.Stat.Model as Stat
import LoggedIn.Stat.Msg as Stat

update : LoggedData -> Stat.Msg -> Stat.Model -> (Stat.Model, Cmd Stat.Msg)
update loggedData msg model =
  case msg of

    Stat.NoOp ->
      ( model
      , Cmd.none
      )

    Stat.UpdateChart ->
      let { currentTime, paymentCategories, payments } = loggedData
      in  ( { model
            | paymentsByMonthByCategory = Stat.getPaymentsByMonthByCategory currentTime paymentCategories payments
            }
          , Cmd.none
          )