Switched to throw-to instead of hClose to quit reader thread

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
                                   Just xml -> do
                                     atomically $ Slotted.push slots Nothing xml
                                     inner
-                                  Nothing -> return ())
+                                  Nothing -> loop)
                             (readTMVar rdone >> return (return ()))
                         what
-                    loop
                 ,do pingflag >>= check
                     return $ do
                     wlog $ "TODO: send ping"