reworking... ToxTransport and related modules.

1 files changed, 23 insertions, 0 deletions

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
+    }