mirror of
https://github.com/simplex-chat/simplexmq.git
synced 2026-04-14 03:05:51 +00:00
f3408d9bb6
* explicit exports * more empty exports * add exports * reorder * use correct ControlProtocol type for xftp router --------- Co-authored-by: Evgeny @ SimpleX Chat <259188159+evgeny-simplex@users.noreply.github.com>
16 lines
436 B
Haskell
16 lines
436 B
Haskell
{-# LANGUAGE LambdaCase #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Simplex.Messaging.Server.MsgStore
|
|
( MsgLogRecord (..),
|
|
) where
|
|
|
|
import Simplex.Messaging.Encoding.String
|
|
import Simplex.Messaging.Protocol (Message (..), RecipientId)
|
|
|
|
data MsgLogRecord = MLRv3 RecipientId Message
|
|
|
|
instance StrEncoding MsgLogRecord where
|
|
strEncode (MLRv3 rId msg) = strEncode (Str "v3", rId, msg)
|
|
strP = "v3 " *> (MLRv3 <$> strP_ <*> strP)
|