diff options
| author | Ben Sima <ben@bensima.com> | 2025-11-22 08:41:44 -0500 |
|---|---|---|
| committer | Ben Sima <ben@bensima.com> | 2025-11-22 08:41:44 -0500 |
| commit | 3256a913460e639072b7175b41a7ebb2b708d000 (patch) | |
| tree | 58e721594a7bd242d3ee0a74189850b56ac6ebe8 /Omni | |
| parent | 8884fa245e70c1883e1a93ac8fe80eb9bbc8487b (diff) | |
Fix: Add LambdaCase extension and fix imports, and update tasks
Diffstat (limited to 'Omni')
| -rw-r--r-- | Omni/Agent/Log.hs | 3 | ||||
| -rw-r--r-- | Omni/Agent/Worker.hs | 7 |
2 files changed, 2 insertions, 8 deletions
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 |