From 87d20671b9206187eb2a60a05a3987876c1785d6 Mon Sep 17 00:00:00 2001 From: Omni Worker Date: Fri, 21 Nov 2025 05:28:47 -0500 Subject: Fix lint issue --- Omni/Agent/Core.hs | 19 ++++++++++++------- 1 file changed, 12 insertions(+), 7 deletions(-) (limited to 'Omni/Agent') diff --git a/Omni/Agent/Core.hs b/Omni/Agent/Core.hs index 394b357..2d09e39 100644 --- a/Omni/Agent/Core.hs +++ b/Omni/Agent/Core.hs @@ -11,22 +11,27 @@ import Data.Aeson (FromJSON, ToJSON) data WorkerStatus = Idle | Syncing - | Working Text -- ^ Task ID - | Submitting Text -- ^ Task ID - | Error Text -- ^ Error message + | -- | Task ID + Working Text + | -- | Task ID + Submitting Text + | -- | Error message + Error Text deriving (Show, Eq, Generic) instance ToJSON WorkerStatus + instance FromJSON WorkerStatus -- | Representation of a worker agent data Worker = Worker - { workerName :: Text - , workerPid :: Maybe Int - , workerStatus :: WorkerStatus - , workerPath :: FilePath + { workerName :: Text, + workerPid :: Maybe Int, + workerStatus :: WorkerStatus, + workerPath :: FilePath } deriving (Show, Eq, Generic) instance ToJSON Worker + instance FromJSON Worker -- cgit v1.2.3