diff options
Diffstat (limited to 'Presence/main.hs')
-rw-r--r-- | Presence/main.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Presence/main.hs b/Presence/main.hs index 44af40e3..211d7df9 100644 --- a/Presence/main.hs +++ b/Presence/main.hs | |||
@@ -198,12 +198,14 @@ start = do | |||
198 | dologin | 198 | dologin |
199 | #endif | 199 | #endif |
200 | sock <- listenForXmppClients (UnixSessions tracked) 5222 HNil | 200 | sock <- listenForXmppClients (UnixSessions tracked) 5222 HNil |
201 | sockRemotes <- listenForRemotePeers (UnixSessions tracked) 5269 HNil | ||
201 | 202 | ||
202 | threadDelay 1000 -- wait a moment to obtain current tty | 203 | threadDelay 1000 -- wait a moment to obtain current tty |
203 | dologin () | 204 | dologin () |
204 | putStrLn "\nHit enter to terminate...\n" | 205 | putStrLn "\nHit enter to terminate...\n" |
205 | getLine | 206 | getLine |
206 | sClose sock | 207 | sClose sock |
208 | sClose sockRemotes | ||
207 | -- threadDelay 1000 | 209 | -- threadDelay 1000 |
208 | putStrLn "closed listener." | 210 | putStrLn "closed listener." |
209 | unmonitorTTY mtty | 211 | unmonitorTTY mtty |