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/Agent/Log.hs | |
| parent | 8884fa245e70c1883e1a93ac8fe80eb9bbc8487b (diff) | |
Fix: Add LambdaCase extension and fix imports, and update tasks
Diffstat (limited to 'Omni/Agent/Log.hs')
| -rw-r--r-- | Omni/Agent/Log.hs | 3 |
1 files changed, 2 insertions, 1 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 |