diff options
Diffstat (limited to 'src/Network/Tox/ContactInfo.hs')
-rw-r--r-- | src/Network/Tox/ContactInfo.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Network/Tox/ContactInfo.hs b/src/Network/Tox/ContactInfo.hs index 64ea861b..5135813a 100644 --- a/src/Network/Tox/ContactInfo.hs +++ b/src/Network/Tox/ContactInfo.hs | |||
@@ -18,6 +18,7 @@ import Network.Tox.DHT.Transport as DHT | |||
18 | import Network.Tox.NodeId (id2key) | 18 | import Network.Tox.NodeId (id2key) |
19 | import Network.Tox.Onion.Transport as Onion | 19 | import Network.Tox.Onion.Transport as Onion |
20 | import System.IO | 20 | import System.IO |
21 | import DPut | ||
21 | 22 | ||
22 | newtype ContactInfo extra = ContactInfo | 23 | newtype ContactInfo extra = ContactInfo |
23 | -- | Map our toxid public key to an Account record. | 24 | -- | Map our toxid public key to an Account record. |
@@ -55,7 +56,7 @@ myKeyPairs (ContactInfo accounts) = do | |||
55 | 56 | ||
56 | updateContactInfo :: ContactInfo extra -> Onion.AnnouncedRendezvous -> (PublicKey,Onion.OnionData) -> IO () | 57 | updateContactInfo :: ContactInfo extra -> Onion.AnnouncedRendezvous -> (PublicKey,Onion.OnionData) -> IO () |
57 | updateContactInfo roster Onion.AnnouncedRendezvous{remoteUserKey} (localUserKey,omsg) = do | 58 | updateContactInfo roster Onion.AnnouncedRendezvous{remoteUserKey} (localUserKey,omsg) = do |
58 | hPutStrLn stderr "updateContactInfo!!!" | 59 | dput XMisc "updateContactInfo!!!" |
59 | now <- getPOSIXTime | 60 | now <- getPOSIXTime |
60 | atomically $ do | 61 | atomically $ do |
61 | as <- readTVar (accounts roster) | 62 | as <- readTVar (accounts roster) |