module OANDA.Transactions
( Transaction (..)
, transactionHistory
) where
import Data.Aeson
import Data.Decimal
import Data.Time (ZonedTime)
import qualified Data.Vector as V
import GHC.Generics (Generic)
import OANDA.Types
import OANDA.Util
transactionHistory :: OandaEnv -> AccountID -> IO (V.Vector Transaction)
transactionHistory od (AccountID aid) =
do let url = baseURL od ++ "/v1/accounts/" ++ show aid ++ "/transactions"
opts = constructOpts od []
jsonResponseArray url opts "transactions"
data Transaction = Transaction
{ transactionId :: Integer
, transactionAccountId :: Integer
, transactionTime :: ZonedTime
, transactionType :: String
, transactionInstrument :: Maybe InstrumentText
, transactionSide :: Maybe Side
, transactionUnits :: Maybe Decimal
, transactionPrice :: Maybe Decimal
, transactionLowerBound :: Maybe Decimal
, transactionUpperBound :: Maybe Decimal
, transactionTakeProfitPrice :: Maybe Decimal
, transactionStopLossPrice :: Maybe Decimal
, transactionTrailingStopLossDistance :: Maybe Decimal
, transactionPL :: Maybe Decimal
, transactionInterest :: Maybe Decimal
, transactionAccountBalance :: Maybe Decimal
} deriving (Show, Generic)
instance FromJSON Transaction where
parseJSON = genericParseJSON $ jsonOpts "transaction"