{-# LANGUAGE DeriveGeneric #-}

module Model.Json.TotalPayment
  ( TotalPayment(..)
  ) where

import GHC.Generics

import Data.Text (Text)
import Data.Aeson

import Model.Database (UserId)

data TotalPayment = TotalPayment
  { userId :: UserId
  , totalPayment :: Int
  } deriving (Show, Generic)

instance FromJSON TotalPayment
instance ToJSON TotalPayment