1 files changed, 2 insertions, 2 deletions

diff --git a/Presence/XMPPServer.hs b/Presence/XMPPServer.hs
index 813c7c7b..f607989d 100644
--- a/Presence/XMPPServer.hs
+++ b/Presence/XMPPServer.hs
@@ -160,7 +160,7 @@ startCon session_factory sock st  = do
     -- cred <- getLocalPeerCred sock
     -- Prelude.putStrLn $ "PEER CRED: "++Prelude.show cred
     pname <- getPeerName sock
-    session <- newSession session_factory sock h
+    session <- newSession session_factory sock
     Prelude.putStrLn $ "PEER NAME: "++Prelude.show pname
     pchan <- subscribe session Nothing
     cmdChan <- atomically newTChan
@@ -418,7 +418,7 @@ startPeer session_factory sock st = do
     name <- fmap bshow $ getPeerName sock
     L.putStrLn $ "IN peer: connected " <++> name
     jids <- newTVarIO Set.empty
-    session <- newSession session_factory sock h
+    session <- newSession session_factory sock
     let quit = do
             L.putStrLn $ "IN peer: disconnected " <++> name
             js <- fmap Set.toList (readTVarIO jids)