diff options
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 |