diff options
author | Joey Hess <joey@kitenet.net> | 2010-10-21 16:30:16 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2010-10-21 16:30:16 -0400 |
commit | 19fde4960dc1d6c8c05efd0f5b4293c2fb52ebf9 (patch) | |
tree | 81071cf95d64b2c3f2d206d6dc30b6154a524b22 /Remotes.hs | |
parent | a68e36f518589bd15fea32da273ad6fd2f288bb5 (diff) |
new fromkey subcommand, for registering urls, etc0.01
had to redo Annex monad's flag storage
Diffstat (limited to 'Remotes.hs')
-rw-r--r-- | Remotes.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Remotes.hs b/Remotes.hs index a0894f418..07aafe51b 100644 --- a/Remotes.hs +++ b/Remotes.hs @@ -36,7 +36,7 @@ withKey key = do -- mounted at their location). So unless it happens to find all -- remotes, try harder, loading the remotes' configs. remotes <- reposByUUID allremotes uuids - remotesread <- Annex.flagIsSet RemotesRead + remotesread <- Annex.flagIsSet "remotesread" if ((length allremotes /= length remotes) && not remotesread) then tryharder allremotes uuids else return remotes @@ -46,7 +46,7 @@ withKey key = do eitherremotes <- mapM tryGitConfigRead allremotes let allremotes' = map fromEither eitherremotes remotes' <- reposByUUID allremotes' uuids - Annex.flagChange RemotesRead True + Annex.flagChange "remotesread" $ FlagBool True return remotes' {- Cost Ordered list of remotes. -} |