{-# LANGUAGE DeriveGeneric #-}

module Model.Json.Payer
  ( Payer(..)
  ) where

import GHC.Generics

import Data.Aeson

import Model.Database (UserId)
import Model.Json.Income

data Payer = Payer
  { userId :: UserId
  , preIncomePaymentSum :: Int
  , postIncomePaymentSum :: Int
  , incomes :: [Income]
  } deriving (Show, Generic)

instance FromJSON Payer
instance ToJSON Payer