This commit is contained in:
Joey Hess 2010-12-29 16:21:38 -04:00
parent 39d0bcb793
commit d475aac375
3 changed files with 29 additions and 21 deletions

View file

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