refactor XMPP client
This commit is contained in:
parent
74385e3d38
commit
a1228e27ed
12 changed files with 291 additions and 175 deletions
|
@ -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 $
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue