move modules to folder Simplex.Messaging.Server

2026-06-08 15:12:23 +00:00 · 2020-11-22 18:22:20 +00:00
parent 64362fe013
commit 3cb2421373
11 changed files with 34 additions and 34 deletions
@@ -0,0 +1,35 @@
+{-# LANGUAGE DataKinds #-}
+{-# LANGUAGE KindSignatures #-}
+{-# LANGUAGE MultiParamTypeClasses #-}
+{-# LANGUAGE NamedFieldPuns #-}
+
+module Simplex.Messaging.Server.QueueStore where
+
+import Simplex.Messaging.Server.Transmission
+
+data QueueRec = QueueRec
+  { recipientId :: QueueId,
+    senderId :: QueueId,
+    recipientKey :: PublicKey,
+    senderKey :: Maybe PublicKey,
+    status :: QueueStatus
+  }
+
+data QueueStatus = QueueActive | QueueOff
+
+class MonadQueueStore s m where
+  addQueue :: s -> RecipientKey -> (RecipientId, SenderId) -> m (Either ErrorType ())
+  getQueue :: s -> SParty (a :: Party) -> QueueId -> m (Either ErrorType QueueRec)
+  secureQueue :: s -> RecipientId -> SenderKey -> m (Either ErrorType ())
+  suspendQueue :: s -> RecipientId -> m (Either ErrorType ())
+  deleteQueue :: s -> RecipientId -> m (Either ErrorType ())
+
+mkQueueRec :: RecipientKey -> (RecipientId, SenderId) -> QueueRec
+mkQueueRec recipientKey (recipientId, senderId) =
+  QueueRec
+    { recipientId,
+      senderId,
+      recipientKey,
+      senderKey = Nothing,
+      status = QueueActive
+    }