From acd16575afeee695ead6bc2d93f5849a59a04b5f Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Mon, 3 Mar 2014 15:24:09 -0500
Subject: cosmetic

---
 xmppServer.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'xmppServer.hs')

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
-- 
cgit v1.2.3