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

1 files changed, 2 insertions, 0 deletions

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 =