module Model.Init
  ( Init
  , initDecoder
  ) where

import Json.Decode as Json exposing ((:=))

import Model.Payment exposing (Payments, paymentsDecoder)
import Model.Income exposing (Incomes, incomesDecoder)
import Model.User exposing (Users, UserId, usersDecoder, userIdDecoder)

type alias Init =
  { users : Users
  , me : UserId
  , payments : Payments
  , incomes : Incomes
  }

initDecoder : Json.Decoder Init
initDecoder =
  Json.object4 Init
    ("users" := usersDecoder)
    ("me" := userIdDecoder)
    ("payments" := paymentsDecoder)
    ("incomes" := incomesDecoder)