From d8e7fefb32c87c3bfb6e464a5c173e838e440e32 Mon Sep 17 00:00:00 2001
From: Alexander Bondarenko <486682+dpwiz@users.noreply.github.com>
Date: Tue, 4 Jun 2024 17:16:12 +0300
Subject: [PATCH] comments

---
 src/Simplex/Messaging/Crypto.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Simplex/Messaging/Crypto.hs b/src/Simplex/Messaging/Crypto.hs
index c7fc139b0..5b0aff4ad 100644
--- a/src/Simplex/Messaging/Crypto.hs
+++ b/src/Simplex/Messaging/Crypto.hs
@@ -1379,7 +1379,7 @@ keyError = \case
 
 type NaclDhSecret = BA.ScrubbedBytes
 
--- type NaclDhSecret = C.DhSecret 'C.X25519h -- hashed DH used by NaCl "afternm" functions.
+-- type NaclDhSecret = C.DhSecret 'C.X25519h -- hashed DH produced by NaCl "crypto_box_beforenm" and used by secretBox/Open
 
 -- Run salsa20 in a hash mode to make our DH keys match 'c_crypto_box_beforenm' output.
 hsalsa20 :: ByteArrayAccess key => key -> Either String NaclDhSecret
@@ -1398,7 +1398,7 @@ hsalsa20 key = unsafePerformIO $ do
     c_0 = B.replicate 16 '\0'
 {-# NOINLINE hsalsa20 #-}
 
-secretBox :: NaclDhSecret -> ByteString -> ByteString -> Either String ByteString  -- TODO: tag?
+secretBox :: NaclDhSecret -> ByteString -> ByteString -> Either String ByteString
 secretBox sk nonce msg = unsafePerformIO $ do
   (r, c) <-
     BA.withByteArray msg0 $ \mPtr ->