From 3256a913460e639072b7175b41a7ebb2b708d000 Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bensima.com>
Date: Sat, 22 Nov 2025 08:41:44 -0500
Subject: Fix: Add LambdaCase extension and fix imports, and update tasks

---
 Omni/Agent/Log.hs    | 3 ++-
 Omni/Agent/Worker.hs | 7 -------
 2 files changed, 2 insertions(+), 8 deletions(-)

(limited to 'Omni')

diff --git a/Omni/Agent/Log.hs b/Omni/Agent/Log.hs
index 0491568..dd66abc 100644
--- a/Omni/Agent/Log.hs
+++ b/Omni/Agent/Log.hs
@@ -1,3 +1,4 @@
+{-# LANGUAGE LambdaCase #-}
 {-# LANGUAGE OverloadedStrings #-}
 {-# LANGUAGE RecordWildCards #-}
 {-# LANGUAGE NoImplicitPrelude #-}
@@ -81,7 +82,7 @@ updateActivity msg = update (\s -> s {statusActivity = msg})
 processLogLine :: Text -> IO ()
 processLogLine line = do
   let entry = parseLine line
-  Data.Foldable.for_ (entry +> formatLogEntry) updateActivity
+  for_ (entry +> formatLogEntry) updateActivity
 
 -- | Parse a JSON log line into a LogEntry
 parseLine :: Text -> Maybe LogEntry
diff --git a/Omni/Agent/Worker.hs b/Omni/Agent/Worker.hs
index c01a853..1cc0b8d 100644
--- a/Omni/Agent/Worker.hs
+++ b/Omni/Agent/Worker.hs
@@ -5,15 +5,8 @@
 module Omni.Agent.Worker where
 
 import Alpha
-import Control.Concurrent (forkIO, killThread, threadDelay)
-import Control.Monad (forever)
-import qualified Data.Aeson as Aeson
-import qualified Data.Aeson.KeyMap as KM
-import qualified Data.ByteString.Lazy as BL
-import qualified Data.Scientific as Scientific
 import qualified Data.Text as Text
 import qualified Data.Text.IO as TIO
-import qualified Data.Time as Time
 import qualified Omni.Agent.Core as Core
 import qualified Omni.Agent.Git as Git
 import qualified Omni.Agent.Log as AgentLog
-- 
cgit v1.2.3