lifted Assistant.Sync into Assistant monad
lots of nice cleanups
This commit is contained in:
parent
1948202b32
commit
5d57b28a34
9 changed files with 88 additions and 117 deletions
|
@ -123,11 +123,7 @@ listenWicdConnections client callback =
|
|||
#endif
|
||||
|
||||
handleConnection :: Assistant ()
|
||||
handleConnection = do
|
||||
d <- getAssistant id
|
||||
liftIO . reconnectRemotes (threadName d) (threadState d)
|
||||
(daemonStatusHandle d) (scanRemoteMap d) (Just $ pushNotifier d)
|
||||
=<< networkRemotes
|
||||
handleConnection = reconnectRemotes True =<< networkRemotes
|
||||
|
||||
{- Finds network remotes. -}
|
||||
networkRemotes :: Assistant [Remote]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue