cosmetic

1 files changed, 1 insertions, 2 deletions

diff --git a/xmppServer.hs b/xmppServer.hs
index d450988c..b5d54344 100644
--- a/xmppServer.hs
+++ b/xmppServer.hs
@@ -242,9 +242,9 @@ getSolicited' :: Text -> IO [Text]
 getSolicited' = textAdapter ConfigFiles.getSolicited
 
 sendProbesAndSolicitations state k laddr chan = do
-    cbu <- atomically $ readTVar $ clientsByUser state
     -- get all buddies & solicited matching k for all users
     runTraversableT $ do
+        cbu <- lift $ atomically $ readTVar $ clientsByUser state
         user <- liftT $ Map.keys cbu
         (isbud,getter) <- liftT [(True ,getBuddies'  )
                                 ,(False,getSolicited')]
@@ -252,7 +252,6 @@ sendProbesAndSolicitations state k laddr chan = do
         let (u,h,r) = splitJID bud
         addr <- liftMT $ resolvePeer h
         liftT $ guard (PeerKey addr == k)
-        -- return (isbud,u)
         let make = if isbud then presenceProbe 
                             else presenceSolicitation
             toh = peerKeyToText k