can set quote amount in MkOrder args for bfx

Author: functora

nix/configuration.nix

@@ -48,18 +48,16 @@
           "delfi.ee"
           "postimees.ee"
           "rumble.com"
-          "t.me"
           "twitter.com"
           "twitch.tv"
-          "tiendamia.com"
-          "mercadolibre.com.uy"
-          "facebook.com"
           "discord.com"
-          "telegram.org"
+          "odysee.com"
+          "bastyon.com"
+          "bitchute.com"
           "youtube.com"
-          # "odysee.com"
-          # "bastyon.com"
-          # "bitchute.com"
+          "facebook.com"
+          "telegram.org"
+          "t.me"
         ]
         else []
       ));

prv

@@ -516,7 +516,11 @@ tickers =
 data MkOrder = MkOrder
   { mkOrderFee :: FeeRate,
     mkOrderBuyOrSell :: BuyOrSell,
+    --
+    -- NOTE : base amt has higher priority!
+    --
     mkOrderNetBaseAmt :: Maybe MoneyAmount,
+    mkOrderNetQuoteAmt :: Maybe MoneyAmount,
     mkOrderCurrencyPair :: CurrencyPair
   }
   deriving stock
@@ -539,10 +543,28 @@ mkOrder args = do
     maybe
       ( do
           syms <- symbolsDetails
+          minBase <-
+            maybe
+              (throwString $ inspect @Text sym <> " is missing!")
+              (pure . currencyPairMinOrderBaseAmt)
+              $ Map.lookup sym syms
           maybe
-            (throwString $ inspect @Text sym <> " is missing!")
-            (pure . currencyPairMinOrderBaseAmt)
-            $ Map.lookup sym syms
+            (pure minBase)
+            ( \netQuoteAmt -> do
+                price <-
+                  Bfx.marketAveragePrice
+                    MarketAveragePrice.Request
+                      { MarketAveragePrice.buyOrSell = bos,
+                        MarketAveragePrice.baseAmount = minBase,
+                        MarketAveragePrice.symbol = sym
+                      }
+                pure
+                  . max minBase
+                  . MoneyAmount
+                  $ unMoneyAmount netQuoteAmt
+                  / unQuotePerBase price
+            )
+            $ mkOrderNetQuoteAmt args
       )
       pure
       $ mkOrderNetBaseAmt args

pub/bfx/src/Bfx.hs

@@ -119,12 +119,23 @@ spec = before sysEnv $ do
             { Bfx.mkOrderFee = FeeRate 0.001,
               Bfx.mkOrderBuyOrSell = Buy,
               Bfx.mkOrderNetBaseAmt = Nothing,
+              Bfx.mkOrderNetQuoteAmt = Nothing,
               Bfx.mkOrderCurrencyPair = adaBtc
             }
-    buy <- Bfx.mkOrder req
-    SubmitOrder.baseAmount buy `shouldBe` MoneyAmount 4.00400401
-    sell <- Bfx.mkOrder req {Bfx.mkOrderBuyOrSell = Sell}
-    SubmitOrder.baseAmount sell `shouldBe` MoneyAmount 4
+    -- let reqQuote = req {Bfx.mkOrderNetQuoteAmt = Just $ MoneyAmount 1}
+    -- buyQuote <- Bfx.mkOrder reqQuote
+    -- SubmitOrder.baseAmount buyQuote `shouldBe` MoneyAmount 10.01001002
+    -- sellQuote <- Bfx.mkOrder reqQuote {Bfx.mkOrderBuyOrSell = Sell}
+    -- SubmitOrder.baseAmount sellQuote `shouldBe` MoneyAmount 10
+    buyDef <- Bfx.mkOrder req
+    SubmitOrder.baseAmount buyDef `shouldBe` MoneyAmount 4.00400401
+    sellDef <- Bfx.mkOrder req {Bfx.mkOrderBuyOrSell = Sell}
+    SubmitOrder.baseAmount sellDef `shouldBe` MoneyAmount 4
+    let reqBase = req {Bfx.mkOrderNetBaseAmt = Just $ MoneyAmount 10}
+    buyBase <- Bfx.mkOrder reqBase
+    SubmitOrder.baseAmount buyBase `shouldBe` MoneyAmount 10.01001002
+    sellBase <- Bfx.mkOrder reqBase {Bfx.mkOrderBuyOrSell = Sell}
+    SubmitOrder.baseAmount sellBase `shouldBe` MoneyAmount 10
 
 --  describe "End2End" $ do
 --    itRight "submitOrderMaker" $ \env -> do