diff options
Diffstat (limited to 'xmppServer.hs')
-rw-r--r-- | xmppServer.hs | 2 |
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 [] |