netcrypto wip, compiles

1 files changed, 2 insertions, 0 deletions

diff --git a/src/Network/Tox/Crypto/Handlers.hs b/src/Network/Tox/Crypto/Handlers.hs
index cca8b899..bffb4280 100644
--- a/src/Network/Tox/Crypto/Handlers.hs
+++ b/src/Network/Tox/Crypto/Handlers.hs
@@ -85,6 +85,7 @@ type SessionID = Word64
 
 data NetCryptoSession = NCrypto
     { ncState              :: TVar NetCryptoSessionStatus
+    , ncMyPublicKey        :: PublicKey
     , ncSessionId          :: SessionID
     , ncTheirPublicKey     :: PublicKey -- Tox id w/o nospam
     , ncTheirBaseNonce     :: TVar Nonce24 -- base nonce + packet number
@@ -339,6 +340,7 @@ freshCryptoSession  sessions
     pktoq <- atomically $ PQ.newOutGoing pktq ncToWire toWireIO 0 (outboundQueueCapacity sessions) 0
     let netCryptoSession0 =
             NCrypto { ncState              = ncState0
+                    , ncMyPublicKey        = toPublic key
                     , ncSessionId          = sessionId
                     , ncTheirPublicKey     = remotePublicKey
                     , ncTheirBaseNonce     = ncTheirBaseNonce0