refactor XMPP client

This commit is contained in:
Joey Hess 2012-11-03 14:16:17 -04:00
parent 74385e3d38
commit a1228e27ed
12 changed files with 291 additions and 175 deletions

View file

@ -12,7 +12,7 @@ module Assistant.Threads.NetWatcher where
import Assistant.Common
import Assistant.Sync
import Assistant.Pushes
import Assistant.NetMessager
import Utility.ThreadScheduler
import Remote.List
import qualified Types.Remote as Remote
@ -62,7 +62,7 @@ dbusThread = do
)
handleconn = do
debug ["detected network connection"]
notifyRestart
notifyNetMessagerRestart
handleConnection
onerr e _ = do
liftAnnex $