summaryrefslogtreecommitdiff
path: root/xmppServer.hs
diff options
context:
space:
mode:
Diffstat (limited to 'xmppServer.hs')
-rw-r--r--xmppServer.hs6
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"