summaryrefslogtreecommitdiff
path: root/xmppServer.hs
diff options
context:
space:
mode:
Diffstat (limited to 'xmppServer.hs')
-rw-r--r--xmppServer.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/xmppServer.hs b/xmppServer.hs
index 36fa22fe..d67b7552 100644
--- a/xmppServer.hs
+++ b/xmppServer.hs
@@ -22,6 +22,8 @@ main = runResourceT $ do
22 (sv,peer_params) <- xmppServer 22 (sv,peer_params) <- xmppServer
23 XMPPServerParameters 23 XMPPServerParameters
24 { xmppChooseResourceName = \k sock desired -> return "nobody@localhost/tty666" 24 { xmppChooseResourceName = \k sock desired -> return "nobody@localhost/tty666"
25 , xmppTellMyNameToClient = return "localhost"
26 , xmppTellMyNameToPeer = \addr -> return "localhost"
25 , xmppNewConnection = \k outchan -> return () 27 , xmppNewConnection = \k outchan -> return ()
26 , xmppEOF = \k -> return () 28 , xmppEOF = \k -> return ()
27 , xmppRosterBuddies = \k -> return [] 29 , xmppRosterBuddies = \k -> return []