From fe5e8064a4f7311c8e3fe6eb4d9e95d16e1d0250 Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Sat, 13 Dec 2025 20:30:11 -0500 Subject: telegram: round cost to 2 decimal places in logs --- Omni/Agent/Telegram.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/Omni/Agent/Telegram.hs b/Omni/Agent/Telegram.hs index 993f2e0..148bb6a 100644 --- a/Omni/Agent/Telegram.hs +++ b/Omni/Agent/Telegram.hs @@ -93,6 +93,7 @@ import qualified Omni.Agent.Tools.WebReader as WebReader import qualified Omni.Agent.Tools.WebSearch as WebSearch import qualified Omni.Test as Test import System.Environment (lookupEnv) +import Text.Printf (printf) defaultTelegramConfig :: Text -> [Int] -> Maybe Text -> Text -> Types.TelegramConfig defaultTelegramConfig = Types.defaultTelegramConfig @@ -914,11 +915,13 @@ processEngagedMessage tgConfig provider engineCfg msg uid userName chatId userMe else do _ <- Messages.enqueueImmediate (Just uid) chatId threadId response (Just "agent_response") Nothing unless isGroup <| checkAndSummarize (Types.tgOpenRouterApiKey tgConfig) uid chatId + let cost = Engine.resultTotalCost agentResult + costStr = Text.pack (printf "%.2f" cost) putText <| "Responded to " <> userName <> " (cost: " - <> tshow (Engine.resultTotalCost agentResult) + <> costStr <> " cents)" maxConversationTokens :: Int -- cgit v1.2.3