diff options
| author | joe <joe@jerkface.net> | 2013-06-17 02:21:57 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2013-06-17 02:21:57 -0400 |
| commit | 57a7a887adb443c516230ac23602b52e1d94d240 (patch) | |
| tree | 98aaf54a7e26315fcde477153394fcda8bbf02fe /Presence/main.hs | |
| parent | 87c5c2ae4fb60b58dcfb172c5e9b44151b02d777 (diff) | |
progress on sessions
Diffstat (limited to 'Presence/main.hs')
| -rw-r--r-- | Presence/main.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Presence/main.hs b/Presence/main.hs index 63ebf817..7a5939ff 100644 --- a/Presence/main.hs +++ b/Presence/main.hs | |||
| @@ -41,10 +41,10 @@ data UnixSession = UnixSession | |||
| 41 | 41 | ||
| 42 | instance XMPPSession UnixSession where | 42 | instance XMPPSession UnixSession where |
| 43 | data XMPPClass UnixSession = UnixSessions | 43 | data XMPPClass UnixSession = UnixSessions |
| 44 | newSession _ sock handle = return UnixSession | 44 | newSession _ sock handle = putStrLn "SESSION: open" >> return UnixSession |
| 45 | setResource _ resource = return () | 45 | setResource _ resource = putStrLn "SESSION: resource" |
| 46 | getJID _ = return "nobody@fake.bad" | 46 | getJID _ = putStrLn "SESSION: jid" >> return "nobody@fake.bad" |
| 47 | closeSession _ = return () | 47 | closeSession _ = putStrLn "SESSION: close" >> return () |
| 48 | 48 | ||
| 49 | on_chvt vtnum = do | 49 | on_chvt vtnum = do |
| 50 | putStrLn $ "changed vt to "++ show vtnum | 50 | putStrLn $ "changed vt to "++ show vtnum |