rework annex-ignore handling
Only one place need to filter the list of remotes for ignored remotes: keyPossibilities. Make the full list available to everything else. This allows getting rid of the special case handing for --from and --to to make ignored remotes not be ignored with those options.
This commit is contained in:
parent
d78b9f7d54
commit
dd463a3100
11 changed files with 24 additions and 25 deletions
4
Annex.hs
4
Annex.hs
|
@ -26,7 +26,7 @@ import Control.Applicative hiding (empty)
|
|||
import qualified Git
|
||||
import Git.Queue
|
||||
import Types.Backend
|
||||
import Types.Remote
|
||||
import qualified Types.Remote
|
||||
import Types.Crypto
|
||||
import Types.BranchState
|
||||
import Types.TrustLevel
|
||||
|
@ -48,7 +48,7 @@ newtype Annex a = Annex { runAnnex :: StateT AnnexState IO a }
|
|||
data AnnexState = AnnexState
|
||||
{ repo :: Git.Repo
|
||||
, backends :: [Backend Annex]
|
||||
, remotes :: [Remote Annex]
|
||||
, remotes :: [Types.Remote.Remote Annex]
|
||||
, repoqueue :: Queue
|
||||
, output :: OutputType
|
||||
, force :: Bool
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue