support bfx affiliate codes

Author: functora

prv

@@ -29,6 +29,7 @@ data Options = Options
   { stopLoss :: Maybe QuotePerBase,
     clientId :: Maybe OrderClientId,
     groupId :: Maybe OrderGroupId,
+    affCode :: Maybe AffCode,
     flags :: Set OrderFlag
   }
   deriving stock (Eq, Ord, Show, Read, Data, Generic)
@@ -39,6 +40,7 @@ optsDef =
     { stopLoss = Nothing,
       clientId = Nothing,
       groupId = Nothing,
+      affCode = Nothing,
       flags = mempty
     }
 
@@ -48,6 +50,7 @@ optsPostOnly =
     { stopLoss = Nothing,
       clientId = Nothing,
       groupId = Nothing,
+      affCode = Nothing,
       flags = [PostOnly]
     }
 
@@ -57,6 +60,7 @@ optsPostOnlyStopLoss sl =
     { stopLoss = Just sl,
       clientId = Nothing,
       groupId = Nothing,
+      affCode = Nothing,
       flags = [PostOnly, Oco]
     }
 
@@ -89,5 +93,9 @@ instance ToJSON Request where
         mempty
         (\x -> ["price_oco_stop" A..= toTextParam x])
         (stopLoss opts)
+      <> maybe
+        mempty
+        (\x -> ["meta" A..= A.object ["aff_code" A..= unAffCode x]])
+        (affCode opts)
     where
       opts = options req

pub/bfx/src/Bfx/Data/SubmitOrder.hs

@@ -13,6 +13,7 @@ module Bfx.Data.Type
     unOrderFlagSet,
     OrderStatus (..),
     newOrderStatus,
+    AffCode (..),
 
     -- * Trading
     -- $trading
@@ -242,6 +243,26 @@ newOrderStatus = \case
   "RSN_PAUSE" -> Right RsnPause
   x -> Left $ TryFromException x Nothing
 
+newtype AffCode = AffCode
+  { unAffCode :: Text
+  }
+  deriving newtype
+    ( Eq,
+      Ord,
+      Show,
+      Read,
+      ToJSON,
+      ToJSONKey,
+      FromJSON,
+      FromJSONKey,
+      HasCodec,
+      HasItemCodec
+    )
+  deriving stock
+    ( Data,
+      Generic
+    )
+
 -- $trading
 -- Data related to trading and money.