feat: log address instead of using putStrLn

geniusyield · May 2, 2024 · 3c14bc5 · 3c14bc5
1 parent 6595ab8
commit 3c14bc5
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 5 deletions.
diff --git a/README.md b/README.md
@@ -85,7 +85,7 @@ The configuration values used for these environment variables in the example abo
 configuration values. A MAINNET Maestro API key is needed, a payment signing key must be generated and a collateral UTxO must be provided after
 sending funds to the address given by the payment signing key and the (optional) stake address.
 
-In order to determine this address, you could use `cardano-cli address build`, but you can also just run the market maker - the address will be printed to the console in the first line of output:
+In order to determine this address, you could use `cardano-cli address build`, but you can also just run the market maker - the address will be printed as the first log of "Info" severity:
 
 ```
 Genius Yield Market Maker: <MARKET MAKER ADDRESS>

diff --git a/geniusyield-market-maker/Main.hs b/geniusyield-market-maker/Main.hs
@@ -4,6 +4,7 @@ import           Control.Exception                         (throwIO)
 import           GeniusYield.Api.Dex.Constants             (dexInfoDefaultMainnet,
                                                             dexInfoDefaultPreprod)
 import           GeniusYield.GYConfig
+import           GeniusYield.MarketMaker.Constants         (logNS)
 import           GeniusYield.MarketMaker.MakerBot
 import           GeniusYield.MarketMaker.MakerBotConfig
 import           GeniusYield.MarketMaker.Prices
@@ -12,6 +13,7 @@ import           GeniusYield.MarketMaker.Utils             (addrUser)
 import           GeniusYield.OrderBot.DataSource.Providers (connectDB)
 import           GeniusYield.Types                         (GYNetworkId (..),
                                                             addressToText)
+import           GeniusYield.Types.Providers               (gyLogInfo)
 import           System.Environment
 
 -----------------------------------------------------------------------
@@ -46,11 +48,11 @@ main = do
       GYMainnet -> pure dexInfoDefaultMainnet
       _ -> throwIO $ userError "Only Preprod and Mainnet are supported."
 
-  putStrLn $ "Genius Yield Market Maker: "
-    ++ show (addressToText $ addrUser (cfgNetworkId coreCfg) $ mbUser mb)
-
   let netId = cfgNetworkId coreCfg
-  withCfgProviders coreCfg "" $ \providers ->
+  withCfgProviders coreCfg "" $ \providers -> do
+    gyLogInfo providers logNS $
+         "Genius Yield Market Maker: "
+      ++ show (addressToText $ addrUser (cfgNetworkId coreCfg) $ mbUser mb)
     case action of
       "Run"    -> do
         c  <- connectDB netId providers