From 34114e2016b186a52a7245fe3fb7e2bfe5091780 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bensima.com>
Date: Mon, 24 Nov 2025 14:31:47 -0500
Subject: Display credits correctly and don't loop agent

---
 Omni/Agent/Log.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Omni/Agent/Log.hs')

diff --git a/Omni/Agent/Log.hs b/Omni/Agent/Log.hs
index 71a7aca..2942563 100644
--- a/Omni/Agent/Log.hs
+++ b/Omni/Agent/Log.hs
@@ -166,7 +166,7 @@ updateFromEntry :: LogEntry -> Status -> Status
 updateFromEntry LogEntry {..} s =
   s
     { statusThread = leThreadId <|> statusThread s,
-      statusCredits = fromMaybe (statusCredits s) (leTotalCredits <|> leCredits),
+      statusCredits = maybe (statusCredits s) (/ 100.0) (leTotalCredits <|> leCredits),
       statusTime = maybe (statusTime s) formatTime leTimestamp
     }
 
-- 
cgit v1.2.3