XMPPSession class

1 files changed, 13 insertions, 2 deletions

diff --git a/Presence/main.hs b/Presence/main.hs
index 7df81903..63ebf817 100644
--- a/Presence/main.hs
+++ b/Presence/main.hs
@@ -1,4 +1,6 @@
-{-# LANGUAGE CPP #-}
+{-# LANGUAGE CPP               #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE TypeFamilies      #-}
 
 import System.Directory
 import Control.Monad
@@ -35,6 +37,15 @@ utmp_event e = do
     forM_ ids putStrLn
 #endif
 
+data UnixSession = UnixSession
+
+instance XMPPSession UnixSession where
+    data XMPPClass UnixSession = UnixSessions
+    newSession   _ sock handle = return UnixSession
+    setResource  _ resource    = return ()
+    getJID       _             = return "nobody@fake.bad"
+    closeSession _             = return ()
+
 on_chvt vtnum = do
     putStrLn $ "changed vt to "++ show vtnum
 
@@ -55,7 +66,7 @@ start = do
     print wd
 #endif
     mtty <- monitorTTY on_chvt
-    sock <- listenForXmppClients 5222 HNil
+    sock <- listenForXmppClients UnixSessions 5222 HNil
     putStrLn "Hit enter to terminate..."
     getLine
     {-