minor edit

2 files changed, 2 insertions, 1 deletions

diff --git a/Presence/ConfigFiles.hs b/Presence/ConfigFiles.hs
index f0e18f70..48049c08 100644
--- a/Presence/ConfigFiles.hs
+++ b/Presence/ConfigFiles.hs
@@ -12,7 +12,7 @@ import Control.Exception
 import Control.Monad
 import Todo
 import Control.DeepSeq
-import ByteStringOperators
+import ByteStringOperators() -- For NFData instance
 
 type User = ByteString
 
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
             js <- fmap Set.toList (readTVarIO jids)
             let offline jid = Presence jid Offline
             forM_ js $ announcePresence session . offline
+            closeSession session
     return ( (session,jids) .*. ConnectionFinalizer quit .*. st )
 
 doPeer st elem cont = do