diff options
Diffstat (limited to 'xmppServer.hs')
-rw-r--r-- | xmppServer.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/xmppServer.hs b/xmppServer.hs index 4fcdd2c2..4601dbe9 100644 --- a/xmppServer.hs +++ b/xmppServer.hs | |||
@@ -21,6 +21,12 @@ main = runResourceT $ do | |||
21 | { xmppChooseResourceName = \k sock desired -> return "nobody@localhost/tty666" | 21 | { xmppChooseResourceName = \k sock desired -> return "nobody@localhost/tty666" |
22 | , xmppNewConnection = \k outchan -> return () | 22 | , xmppNewConnection = \k outchan -> return () |
23 | , xmppEOF = \k -> return () | 23 | , xmppEOF = \k -> return () |
24 | , xmppRosterBuddies = \k -> return [] | ||
25 | , xmppRosterSubscribers = \k -> return [] | ||
26 | , xmppRosterSolicited = \k -> return [] | ||
27 | , xmppRosterOthers = \k -> return [] | ||
28 | , xmppLookupPeerName = \k -> return "localhost" | ||
29 | , xmppLookupClientJID = \k -> return "nobody@localhost/tty666" | ||
24 | } | 30 | } |
25 | liftIO $ do | 31 | liftIO $ do |
26 | let testaddr0 = "fd97:ca88:fa7c:b94b:c8b8:fad4:1021:a54d" | 32 | let testaddr0 = "fd97:ca88:fa7c:b94b:c8b8:fad4:1021:a54d" |