From 5472805a6a8fb3c3d64cbeff5bda1d78a898c602 Mon Sep 17 00:00:00 2001 From: joe Date: Sun, 27 Aug 2017 18:59:23 -0400 Subject: reworking... ToxTransport and related modules. --- ToxData.hs | 23 +++++++++++++++++++++++ 1 file changed, 23 insertions(+) create mode 100644 ToxData.hs (limited to 'ToxData.hs') diff --git a/ToxData.hs b/ToxData.hs new file mode 100644 index 00000000..06a9b3b8 --- /dev/null +++ b/ToxData.hs @@ -0,0 +1,23 @@ +module ToxData where + +import Crypto + +-- data DHTPacketKind = Ping | Pong | GetNodes | SendNodes +data DHTPacket a = DHTPacket + { dhtSender :: PublicKey + , dhtEncrypted :: WithNonce24 (Encrypted (WithNonce8 a)) + } + +data WithNonce8 a = WithNonce8 a Nonce8 + +data WithNonce24 a = WithNonce24 a Nonce24 + +data AliasedRequest a = AliasedRequest + { alias :: PublicKey + , aliasPayload :: WithNonce24 (Encrypted (WithNonce8 a)) + } + +data ForwardedRequest a = ForwardedRequest + { forwardTo :: PublicKey + , forwarded :: AliasedRequest a + } -- cgit v1.2.3