refactor
This commit is contained in:
parent
39d0bcb793
commit
d475aac375
3 changed files with 29 additions and 21 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue