mirror of https://github.com/voidlizard/hbs2
20 lines
400 B
Haskell
20 lines
400 B
Haskell
module HBS2.Peer.Proto.Mailbox.Entry where
|
|
|
|
import HBS2.Prelude
|
|
import HBS2.Peer.Proto.Mailbox.Types
|
|
|
|
import Data.Word
|
|
import Codec.Serialise
|
|
|
|
data MailboxEntry =
|
|
Existed HashRef | Deleted HashRef
|
|
deriving stock (Eq,Ord,Show,Generic)
|
|
|
|
data RoutedEntry = RoutedEntry HashRef
|
|
deriving stock (Eq,Ord,Show,Generic)
|
|
|
|
instance Serialise MailboxEntry
|
|
instance Serialise RoutedEntry
|
|
|
|
|