You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
404 B
19 lines
404 B
2 years ago
|
{-# 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
|