diff options
Diffstat (limited to 'Commands.hs')
-rw-r--r-- | Commands.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Commands.hs b/Commands.hs index fb76e5502..507c82ccc 100644 --- a/Commands.hs +++ b/Commands.hs @@ -479,7 +479,7 @@ moveFromStart :: FilePath -> Annex (Maybe SubCmdPerform) moveFromStart file = isAnnexed file $ \(key, _) -> do remote <- Remotes.commandLineRemote l <- Remotes.keyPossibilities key - if (elem remote l) + if (not $ null $ filter (\r -> Remotes.same r remote) l) then return $ Just $ moveFromPerform key else return Nothing moveFromPerform :: Key -> Annex (Maybe SubCmdCleanup) |