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