common/src/Common/Model/PaymentHeader.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

module Common.Model.PaymentHeader
  ( PaymentHeader(..)
  ) where

import           Data.Aeson                  (FromJSON, ToJSON)
import           Data.Map                    (Map)
import           GHC.Generics                (Generic)

import           Common.Model.ExceedingPayer (ExceedingPayer)
import           Common.Model.User           (UserId)

data PaymentHeader = PaymentHeader
  { _paymentHeader_exceedingPayers :: [ExceedingPayer]
  , _paymentHeader_repartition     :: Map UserId Int
  } deriving (Eq, Show, Generic)

instance FromJSON PaymentHeader
instance ToJSON PaymentHeader