Integrate toxManager interface with xmpp roster call-outs.

1 files changed, 5 insertions, 2 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index d7ee040f..65498699 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -1395,12 +1395,15 @@ toxman announcer toxbkts tox presence = ToxManager
 
     , setToxConnectionPolicy = \me them p -> do
        hPutStrLn stderr $ "toxman ConnectionPolicy " ++ show (me,them,p)
+       forM_ (do meid   <- readMaybe $ T.unpack $ T.take 43 me
+                 themid <- readMaybe $ T.unpack $ T.take 43 them
+                 return $ Tox.Key meid themid) $ \k -> do
+       setPolicy (Tox.toxMgr tox) k p
        case p of
         TryingToConnect -> do
             let db@ContactInfo{ accounts } = Tox.toxContactInfo tox
             sequence_ $ do
-            meid   <- readMaybe $ T.unpack $ T.take 43 me
-            themid <- readMaybe $ T.unpack $ T.take 43 them
+            let Tox.Key meid themid = k
             Just $ atomically $ do
             accs <- readTVar accounts
             case HashMap.lookup meid accs of