2 files changed, 9 insertions, 5 deletions

diff --git a/Connection/Tox.hs b/Connection/Tox.hs
index a131253d..b0da494a 100644
--- a/Connection/Tox.hs
+++ b/Connection/Tox.hs
@@ -30,6 +30,7 @@ import Control.Concurrent.Lifted
 import GHC.Conc                  (labelThread)
 #endif
 import GHC.Conc (ThreadStatus (..), threadStatus)
+import System.IO
 
 
 
@@ -135,7 +136,9 @@ setToxPolicy :: Parameters
              -> Key
              -> Policy
              -> IO ()
-setToxPolicy params conmap k@(Key me them) policy = case policy of
+setToxPolicy params conmap k@(Key me them) policy = do
+  hPutStrLn stderr $ "C.setToxPolicy "++show (them,policy)
+  case policy of
     TryingToConnect -> do
         mst <- lookupForPolicyChange conmap k policy
         r <- atomically $ lookupContact k (roster params)
diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 65498699..56d9544d 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -1394,10 +1394,11 @@ toxman announcer toxbkts tox presence = ToxManager
                      pub
 
     , 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
+       let m = do meid   <- readMaybe $ T.unpack $ T.take 43 me
+                  themid <- readMaybe $ T.unpack $ T.take 43 them
+                  return $ Tox.Key meid themid
+       hPutStrLn stderr $ "toxman ConnectionPolicy " ++ show (me,them,p,fmap (const ()) m)
+       forM_  m $ \k -> do
        setPolicy (Tox.toxMgr tox) k p
        case p of
         TryingToConnect -> do