diff options
Diffstat (limited to 'Omni/Jr')
| -rw-r--r-- | Omni/Jr/Web.hs | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/Omni/Jr/Web.hs b/Omni/Jr/Web.hs index 6f5029d..7555e22 100644 --- a/Omni/Jr/Web.hs +++ b/Omni/Jr/Web.hs @@ -2487,20 +2487,14 @@ renderToolCallEvent content timestamp now = renderToolResultEvent :: (Monad m) => Text -> UTCTime -> UTCTime -> Lucid.HtmlT m () renderToolResultEvent content timestamp now = let lineCount = length (Text.lines content) - isLong = lineCount > 20 - in Lucid.div_ [Lucid.class_ "event-tool-result"] <| do - Lucid.div_ [Lucid.class_ "event-header result-header"] <| do + in Lucid.details_ [Lucid.class_ "event-tool-result"] <| do + Lucid.summary_ <| do Lucid.span_ [Lucid.class_ "event-icon"] "📋" Lucid.span_ [Lucid.class_ "event-label"] "Result" when (lineCount > 1) <| Lucid.span_ [Lucid.class_ "line-count"] (Lucid.toHtml (tshow lineCount <> " lines")) renderRelativeTimestamp now timestamp - if isLong - then - Lucid.details_ [Lucid.class_ "result-collapsible"] <| do - Lucid.summary_ "Show output" - Lucid.pre_ [Lucid.class_ "event-content tool-output"] (renderDecodedToolResult content) - else Lucid.pre_ [Lucid.class_ "event-content tool-output"] (renderDecodedToolResult content) + Lucid.pre_ [Lucid.class_ "event-content tool-output"] (renderDecodedToolResult content) renderCostEvent :: (Monad m) => Text -> Lucid.HtmlT m () renderCostEvent content = |