module Update.LoggedView.Monthly
  ( MonthlyAction(..)
  , updateMonthly
  ) where

import Model.Payment exposing (Payment)
import Model.View.Payment.Monthly exposing (..)

type MonthlyAction =
  ToggleDetail
  | AddMonthlyPayment Payment

updateMonthly : MonthlyAction -> Monthly -> Monthly
updateMonthly action monthly =
  case action of
    ToggleDetail ->
      { monthly | visibleDetail <- not monthly.visibleDetail }
    AddMonthlyPayment payment ->
      { monthly | payments <- payment :: monthly.payments }