fix agent phase, test (#427)

src/Simplex/Messaging/Agent/Client.hs

@@ -644,7 +644,7 @@ cryptoError = \case
 
 endAgentOperation :: AgentClient -> AgentOperation -> STM ()
 endAgentOperation c@AgentClient {agentEnv = Env {agentOperations}} op = do
-  TM.alter (Just . maybe 0 (\n -> min 0 $ n - 1)) op agentOperations
+  TM.alter (Just . maybe 0 (\n -> max 0 $ n - 1)) op agentOperations
   notifyAgentPhaseChanged c
 
 beginAgentOperation :: AgentClient -> AgentOperation -> STM ()

src/Simplex/Messaging/Agent/Env/SQLite.hs

@@ -127,7 +127,7 @@ data Env = Env
   }
 
 data AgentOperation = AONetwork | AODatabase
-  deriving (Eq, Ord)
+  deriving (Eq, Ord, Show)
 
 disallowedOperations :: AgentPhase -> [AgentOperation]
 disallowedOperations = \case