Comments.

1 files changed, 4 insertions, 0 deletions

diff --git a/src/Network/Tox/ContactInfo.hs b/src/Network/Tox/ContactInfo.hs
index 6cadc944..d03fb249 100644
--- a/src/Network/Tox/ContactInfo.hs
+++ b/src/Network/Tox/ContactInfo.hs
@@ -32,6 +32,10 @@ data Contact = Contact
     { contactKeyPacket     :: Maybe (DHT.DHTPublicKey)
     , contactFriendRequest :: Maybe (DHT.FriendRequest)
     , contactPolicy        :: Maybe (Connection.Policy)
+        -- Possible semantics
+        --  RefusingToConnect : rejected friend-request or blocked.
+        --  OpenToConnect     : pending friend-request.
+        --  TryingToConnect   : roster entry.
     }
 
 nullContact :: Contact