reduce the number of STM transactions (#1255)

* reduce the number of STM transactions

* reduce STM more

* refactor

* remove more
This commit is contained in:
Evgeny authored and GitHub committed 2024-08-09 16:38:46 +01:00
1 parent 7d8457263b
commit 7762b4d364
34 files changed
+495 -474

No files matched your search

@@ -38,11 +38,11 @@ data QueueStore = QueueStore
notifiers :: TMap NotifierId RecipientId
}
newQueueStore :: STM QueueStore
newQueueStore :: IO QueueStore
newQueueStore = do
queues <- TM.empty
senders <- TM.empty
notifiers <- TM.empty
queues <- TM.emptyIO
senders <- TM.emptyIO
notifiers <- TM.emptyIO
pure QueueStore {queues, senders, notifiers}
addQueue :: QueueStore -> QueueRec -> STM (Either ErrorType ())