transaq-connector/src/Commissions.hs

{-# LANGUAGE DeriveGeneric #-}

module Commissions (
  CommissionConfig(..)
) where

import qualified Data.Text    as T
import           Dhall
import           GHC.Generics ()

data CommissionConfig = CommissionConfig {
  comPrefix     :: T.Text,
  comPercentage :: Double,
  comFixed      :: Double
} deriving (Show, Eq, Generic)

instance FromDhall CommissionConfig