{-# LANGUAGE DeriveGeneric     #-}
{-# LANGUAGE OverloadedStrings #-}

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