agent: fix leak in AgentOpState counters

This commit is contained in:
IC Rainbow
2023-11-21 14:53:53 +02:00
parent c7a7323f54
commit 317c68a860
+1 -1
View File
@@ -276,7 +276,7 @@ agentOpSel = \case
agentOperations :: [AgentClient -> TVar AgentOpState]
agentOperations = [ntfNetworkOp, rcvNetworkOp, msgDeliveryOp, sndNetworkOp, databaseOp]
data AgentOpState = AgentOpState {opSuspended :: Bool, opsInProgress :: Int}
data AgentOpState = AgentOpState {opSuspended :: !Bool, opsInProgress :: !Int}
data AgentState = ASForeground | ASSuspending | ASSuspended
deriving (Eq, Show)