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/MountWatcher.hs | |
parent | f62e5c41e4621940a863b35c9c54e0626587a694 (diff) |
lifted Assistant.Sync into Assistant monad
lots of nice cleanups
Diffstat (limited to 'Assistant/Threads/MountWatcher.hs')
-rw-r--r-- | Assistant/Threads/MountWatcher.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/Assistant/Threads/MountWatcher.hs b/Assistant/Threads/MountWatcher.hs index 8814f7a86..503f9b76c 100644 --- a/Assistant/Threads/MountWatcher.hs +++ b/Assistant/Threads/MountWatcher.hs @@ -159,11 +159,7 @@ handleMount :: FilePath -> Assistant () handleMount dir = do debug ["detected mount of", dir] rs <- filter (Git.repoIsLocal . Remote.repo) <$> remotesUnder dir - d <- getAssistant id - liftIO $ - reconnectRemotes (threadName d) (threadState d) - (daemonStatusHandle d) (scanRemoteMap d) - (Just $ pushNotifier d) rs + reconnectRemotes True rs {- Finds remotes located underneath the mount point. - |