1 files changed, 19 insertions, 0 deletions

diff --git a/ToxToXMPP.hs b/ToxToXMPP.hs
index 8c57da5a..56cc297f 100644
--- a/ToxToXMPP.hs
+++ b/ToxToXMPP.hs
@@ -152,6 +152,25 @@ nodeinfoStaleTime = 600
 nodeinfoSearchInterval :: POSIXTime
 nodeinfoSearchInterval = 15
 
+data Awaiting v = Since POSIXTime
+data Acquired v = At POSIXTime v
+data Moot v     = Moot
+
+data NNS a b c = NNS { -- NetcryptoNegotiationState
+  sessionDesired  :: Bool,
+  theirPublicKey  :: a Tox.DHTPublicKey,
+  theirAddress    :: b SockAddr,
+  theirCookie     :: c (Tox.Cookie Encrypted),
+  sessionIsActive :: Bool
+}
+
+data NS
+  = Stage1 (NNS Moot Moot Moot)
+  | Stage2 (NNS Awaiting Moot Moot)
+  | Stage3 (NNS Acquired Awaiting Moot)
+  | Stage4 (NNS Acquired Acquired Awaiting)
+  | Stage5 (NNS Acquired Acquired Acquired)
+
 gotDhtPubkey :: Tox.DHTPublicKey -> ToxToXMPP -> PublicKey -> IO ()
 gotDhtPubkey pubkey tx theirKey = do
   contact <- atomically $ getContact theirKey (txAccount tx) >>= mapM (readTVar . contactLastSeenAddr)