dandri/simplexmq
1
0
Fork 0
mirror of https://github.com/simplex-chat/simplexmq.git synced 2026-05-14 18:25:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

Merge branch 'master' into journal-store

Browse Source
This commit is contained in:
Evgeny Poberezkin
2024-10-26 08:12:07 +01:00
parent 9078118a6d 8b9eb49b57
commit 2a218675b2
2 changed files with 58 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Simplex/Messaging/Server/StoreLog.hs
+9 -9
View File
@@ -241,16 +241,16 @@ readQueues f st = withFile f ReadMode $ LB.hGetContents >=> mapM_ processLine .
s = LB.toStrict s'
procLogRecord :: StoreLogRecord -> IO ()
procLogRecord = \case
CreateQueue q -> addQueue st q >>= qError (recipientId q)
SecureQueue qId sKey -> secureQueue st qId sKey >>= qError qId
AddNotifier qId ntfCreds -> addQueueNotifier st qId ntfCreds >>= qError qId
SuspendQueue qId -> suspendQueue st qId >>= qError qId
DeleteQueue qId -> deleteQueue st qId >>= qError qId
DeleteNotifier qId -> deleteQueueNotifier st qId >>= qError qId
CreateQueue q -> addQueue st q >>= qError "create" (recipientId q)
SecureQueue qId sKey -> secureQueue st qId sKey >>= qError "secure" qId
AddNotifier qId ntfCreds -> addQueueNotifier st qId ntfCreds >>= qError "addNotifier" qId
SuspendQueue qId -> suspendQueue st qId >>= qError "suspend" qId
DeleteQueue qId -> deleteQueue st qId >>= qError "delete" qId
DeleteNotifier qId -> deleteQueueNotifier st qId >>= qError "deleteNotifier" qId
UpdateTime qId t -> updateQueueTime st qId t
printError :: String -> IO ()
printError e = B.putStrLn $ "Error parsing log: " <> B.pack e <> " - " <> s
qError :: RecipientId -> Either ErrorType a -> IO ()
qError (EntityId qId) = \case
Left e -> B.putStrLn $ "stored queue " <> B64.encode qId <> " error: " <> bshow e
qError :: B.ByteString -> RecipientId -> Either ErrorType a -> IO ()
qError op (EntityId qId) = \case
Left e -> B.putStrLn $ op <> " stored queue " <> B64.encode qId <> " error: " <> bshow e
Right _ -> pure ()