diff options
Diffstat (limited to 'xmppServer.hs')
-rw-r--r-- | xmppServer.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/xmppServer.hs b/xmppServer.hs index 48745e51..e8864706 100644 --- a/xmppServer.hs +++ b/xmppServer.hs | |||
@@ -160,10 +160,9 @@ forkConnection k pingflag src snk stanzas = do | |||
160 | Just xml -> do | 160 | Just xml -> do |
161 | atomically $ Slotted.push slots Nothing xml | 161 | atomically $ Slotted.push slots Nothing xml |
162 | inner | 162 | inner |
163 | Nothing -> return ()) | 163 | Nothing -> loop) |
164 | (readTMVar rdone >> return (return ())) | 164 | (readTMVar rdone >> return (return ())) |
165 | what | 165 | what |
166 | loop | ||
167 | ,do pingflag >>= check | 166 | ,do pingflag >>= check |
168 | return $ do | 167 | return $ do |
169 | wlog $ "TODO: send ping" | 168 | wlog $ "TODO: send ping" |