diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-10-29 16:22:14 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-10-29 16:22:14 -0400 |
| commit | 47f4506a1ed1d98d3bdae0de24e00f2eb64611da (patch) | |
| tree | 384a5b97fb6710d19c4c26a43d6f364dedf4d4a3 /Assistant/Threads/NetWatcher.hs | |
| parent | f62e5c41e4621940a863b35c9c54e0626587a694 (diff) | |
lifted Assistant.Sync into Assistant monad
lots of nice cleanups
Diffstat (limited to 'Assistant/Threads/NetWatcher.hs')
| -rw-r--r-- | Assistant/Threads/NetWatcher.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/Assistant/Threads/NetWatcher.hs b/Assistant/Threads/NetWatcher.hs index 2af880e02..12e764016 100644 --- a/Assistant/Threads/NetWatcher.hs +++ b/Assistant/Threads/NetWatcher.hs @@ -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] |