don't exclude special remotes from the knownRemotes list used by the assistant

But do exclude them when pushing out changes.
This commit is contained in:
Joey Hess 2012-08-26 14:56:26 -04:00
parent c58d553265
commit 4d269db520
2 changed files with 9 additions and 4 deletions

View file

@ -15,6 +15,7 @@ import Assistant.ThreadedMonad
import Assistant.DaemonStatus
import Assistant.Sync
import Utility.ThreadScheduler
import qualified Remote
import Data.Time.Clock
@ -50,7 +51,8 @@ pushThread st dstatus commitchan pushmap = do
now <- getCurrentTime
if shouldPush now commits
then do
remotes <- knownRemotes <$> getDaemonStatus dstatus
remotes <- filter (not . Remote.specialRemote) .
knownRemotes <$> getDaemonStatus dstatus
unless (null remotes) $
void $ alertWhile dstatus (pushAlert remotes) $
pushToRemotes thisThread now st (Just pushmap) remotes