mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

refactor

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

4
Command/Move.hs
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