From 046e6d1ca55651379f938b4481570bcb1b122e1e Mon Sep 17 00:00:00 2001 From: Ben Sima Date: Mon, 1 Dec 2025 10:43:59 -0500 Subject: Add actor column to agent_events table - Add 'actor' column to agent_events table (human/junior/system) - Add System to CommentAuthor type (reused for actor) - Add SQL FromField/ToField instances for CommentAuthor - Update insertAgentEvent to accept actor parameter - Update all SELECT queries to include actor column - Update Worker.hs to pass actor for all event types - Guardrail events logged with System actor Migration: ALTER TABLE adds column with default 'junior' for existing rows. Task-Id: t-213.1 --- Omni/Jr/Web.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'Omni/Jr') diff --git a/Omni/Jr/Web.hs b/Omni/Jr/Web.hs index 7555e22..f7a2219 100644 --- a/Omni/Jr/Web.hs +++ b/Omni/Jr/Web.hs @@ -1632,9 +1632,11 @@ instance Lucid.ToHtml TaskDetailPage where authorClass = case TaskCore.commentAuthor c of TaskCore.Human -> "author-human" TaskCore.Junior -> "author-junior" + TaskCore.System -> "author-system" authorLabel author = case author of TaskCore.Human -> "Human" :: Text TaskCore.Junior -> "Junior" :: Text + TaskCore.System -> "System" :: Text commentForm :: (Monad m) => Text -> Lucid.HtmlT m () commentForm tid = -- cgit v1.2.3