diff options
Diffstat (limited to 'Presence/XMPPServer.hs')
| -rw-r--r-- | Presence/XMPPServer.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs index 54ee0975..2329488e 100644 --- a/Presence/XMPPServer.hs +++ b/Presence/XMPPServer.hs | |||
| @@ -488,6 +488,7 @@ startPeer session_factory sock st = do | |||
| 488 | js <- fmap Set.toList (readTVarIO jids) | 488 | js <- fmap Set.toList (readTVarIO jids) |
| 489 | let offline jid = Presence jid Offline | 489 | let offline jid = Presence jid Offline |
| 490 | forM_ js $ announcePresence session . offline | 490 | forM_ js $ announcePresence session . offline |
| 491 | closeSession session | ||
| 491 | return ( (session,jids) .*. ConnectionFinalizer quit .*. st ) | 492 | return ( (session,jids) .*. ConnectionFinalizer quit .*. st ) |
| 492 | 493 | ||
| 493 | doPeer st elem cont = do | 494 | doPeer st elem cont = do |