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:
parent
c58d553265
commit
4d269db520
2 changed files with 9 additions and 4 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue