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.
39 lines
1.3 KiB
39 lines
1.3 KiB
{-# LANGUAGE DeriveGeneric #-} |
|
|
|
module ATrade.Driver.Junction.ProgramConfiguration |
|
( |
|
ProgramOptions(..), |
|
ProgramConfiguration(..) |
|
) where |
|
import ATrade.Driver.Junction.Types (StrategyInstanceDescriptor) |
|
import qualified Data.Text as T |
|
import Dhall (FromDhall) |
|
import GHC.Generics (Generic) |
|
|
|
newtype ProgramOptions = |
|
ProgramOptions |
|
{ |
|
configPath :: FilePath |
|
} |
|
|
|
data ProgramConfiguration = |
|
ProgramConfiguration |
|
{ |
|
brokerEndpoint :: T.Text, |
|
brokerNotificationEndpoint :: T.Text, |
|
brokerServerCert :: Maybe FilePath, |
|
brokerClientCert :: Maybe FilePath, |
|
brokerIdentity :: T.Text, |
|
quotesourceEndpoint :: T.Text, |
|
quotesourceServerCert :: Maybe FilePath, |
|
quotesourceClientCert :: Maybe FilePath, |
|
qhpEndpoint :: T.Text, |
|
qtisEndpoint :: T.Text, |
|
remoteControlEndpoint :: T.Text, |
|
redisSocket :: T.Text, |
|
robotsConfigsPath :: FilePath, |
|
logBasePath :: FilePath, |
|
instances :: [StrategyInstanceDescriptor] |
|
} deriving (Generic, Show) |
|
|
|
instance FromDhall ProgramConfiguration
|
|
|