core: fix withStore usage in subscriber

src/Simplex/Chat/Library/Subscriber.hs

@@ -1492,7 +1492,7 @@ processAgentMessageConn vr user@User {userId} corrId agentConnId agentMessage =
               chatVR <- chatVersionRange
               let chatV = chatVR `peerConnChatVersion` chatVRange
               (cmdId, acId) <- agentAcceptContactAsync user True invId msg subMode PQSupportOff chatV
-              withFastStore $ \db -> do
+              withStore $ \db -> do
                 Connection {connId = testCId} <- createRelayTestConnection db vr user acId ConnAccepted chatV subMode
                 liftIO $ setCommandConnId db user cmdId testCId
         -- TODO [relays] owner, relays: TBC how to communicate member rejection rules from owner to relays