1 files changed, 6 insertions, 0 deletions

diff --git a/src/Network/Tox/ContactInfo.hs b/src/Network/Tox/ContactInfo.hs
index 5135813a..e76e2f1b 100644
--- a/src/Network/Tox/ContactInfo.hs
+++ b/src/Network/Tox/ContactInfo.hs
@@ -70,6 +70,12 @@ initContact = Contact <$> newTVar Nothing
                       <*> newTVar Nothing
                       <*> newTVar Nothing
 
+getContact :: PublicKey -> Account extra -> STM (Maybe Contact)
+getContact remoteUserKey acc = do
+    let rkey = key2id remoteUserKey
+    cmap <- readTVar (contacts acc)
+    return $ HashMap.lookup rkey cmap
+
 updateAccount' :: PublicKey -> Account extra -> (Contact -> STM ()) -> STM ()
 updateAccount' remoteUserKey acc updater = do
     let rkey = key2id remoteUserKey