mirror of
https://github.com/simplex-chat/simplexmq.git
synced 2026-04-27 04:15:13 +00:00
Evgeny Poberezkin
c179073260
* remove support for old versions (WIP) * fix * updates * use version var
14 lines
409 B
Haskell
14 lines
409 B
Haskell
{-# LANGUAGE LambdaCase #-}
|
|
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Simplex.Messaging.Server.MsgStore 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)
|