FIXME: Should be using qryNonce instead of msgNonce.

1 files changed, 3 insertions, 1 deletions

diff --git a/src/Network/DatagramServer/Tox.hs b/src/Network/DatagramServer/Tox.hs
index ead077bb..cf39e7e1 100644
--- a/src/Network/DatagramServer/Tox.hs
+++ b/src/Network/DatagramServer/Tox.hs
@@ -395,7 +395,7 @@ instance Envelope Message where
 
     envelopePayload = msgPayload
 
-    envelopeTransaction = msgNonce
+    envelopeTransaction = msgNonce -- FIXME: should be decrypted nonce
 
     envelopeClass Message { msgType = Ping      } = Query Ping
     envelopeClass Message { msgType = Pong      } = Response Nothing
@@ -414,6 +414,8 @@ instance Envelope Message where
         , msgPayload = q
         }
 
+    -- FIXME: Should generate encrypted nonces.
+    --        Should be unpredictable.
     uniqueTransactionId cnt = do
       return $ either (error "failed to create TransactionId") TID
              $ S.decode $ Char8.pack (take 24 $ show cnt ++ repeat ' ')