diff options
| author | Ben Sima <ben@bensima.com> | 2025-11-22 08:37:02 -0500 |
|---|---|---|
| committer | Ben Sima <ben@bensima.com> | 2025-11-22 08:37:02 -0500 |
| commit | 8884fa245e70c1883e1a93ac8fe80eb9bbc8487b (patch) | |
| tree | 729d5afa7a10a004ff805af84051de55e0f5ae19 /Omni/Agent | |
| parent | 4b9f6e6669eebc7edf61c223b71ffcc44a0ff1c8 (diff) | |
| parent | 7860dd099ecba29249c4ba4d40f957f16a65a083 (diff) | |
Merge task t-rWcmRMaWX.2: Round credits to nearest cent
Diffstat (limited to 'Omni/Agent')
| -rw-r--r-- | Omni/Agent/Log.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Omni/Agent/Log.hs b/Omni/Agent/Log.hs index 59efb38..0491568 100644 --- a/Omni/Agent/Log.hs +++ b/Omni/Agent/Log.hs @@ -16,6 +16,7 @@ import qualified Data.Vector as V import qualified System.Console.ANSI as ANSI import qualified System.IO as IO import System.IO.Unsafe (unsafePerformIO) +import Text.Printf (printf) -- | Parsed log entry data LogEntry = LogEntry @@ -203,7 +204,7 @@ render = do ANSI.hCursorDown IO.stderr 1 ANSI.hSetCursorColumn IO.stderr 0 ANSI.hClearLine IO.stderr - TIO.hPutStr IO.stderr <| "Credits: $" <> tshow statusCredits + TIO.hPutStr IO.stderr <| "Credits: $" <> str (printf "%.2f" statusCredits :: String) -- Line 5: Activity ANSI.hCursorDown IO.stderr 1 |