support trusted repositories that are not configured as remotes

This commit is contained in:
Joey Hess 2010-12-29 16:58:44 -04:00
parent ef85e699ba
commit e64ffc212e
3 changed files with 20 additions and 15 deletions

View file

@ -110,7 +110,7 @@ toCleanup move remote key tmpfile = do
fromStart :: Bool -> SubCmdStartString
fromStart move file = isAnnexed file $ \(key, _) -> do
remote <- Remotes.commandLineRemote
(trusted, untrusted) <- Remotes.keyPossibilities key
(trusted, untrusted, _) <- Remotes.keyPossibilities key
if null $ filter (\r -> Remotes.same r remote) (trusted ++ untrusted)
then return Nothing
else do