{-# LANGUAGE DeriveGeneric #-}

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

import GHC.Generics

import Data.Text (Text)
import Data.Aeson

data TotalPayment = TotalPayment
  { userName :: Text
  , totalPayment :: Int
  } deriving (Show, Generic)

instance FromJSON TotalPayment
instance ToJSON TotalPayment