From b64c0e2b17c2fb10b682609566a617c2747ec243 Mon Sep 17 00:00:00 2001
From: Denis Tereshkin <denis@kasan.ws>
Date: Fri, 20 Oct 2017 09:21:39 +0700
Subject: [PATCH] Added commission field in trades

---
 src/ATrade/Types.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/ATrade/Types.hs b/src/ATrade/Types.hs
index daa93ee..b29ded3 100644
--- a/src/ATrade/Types.hs
+++ b/src/ATrade/Types.hs
@@ -319,6 +319,7 @@ data Trade = Trade {
   tradeAccount :: T.Text,
   tradeSecurity :: T.Text,
   tradeTimestamp :: UTCTime,
+  tradeCommission :: Price,
   tradeSignalId :: SignalId }
   deriving (Show, Eq)
 
@@ -333,6 +334,7 @@ instance FromJSON Trade where
     trade .: "account"              <*>
     trade .: "security"             <*>
     trade .: "execution-time"       <*>
+    trade .:? "commission" .!= 0    <*>
     trade .: "signal-id"
   parseJSON _ = fail "Should be object"
 
@@ -346,6 +348,7 @@ instance ToJSON Trade where
     "account" .= tradeAccount trade,
     "security" .= tradeSecurity trade,
     "execution-time" .= tradeTimestamp trade,
+    "commission" .= tradeCommission trade,
     "signal-id" .= tradeSignalId trade]
 
 data ServerSecurityParams = ServerSecurityParams {