diff options
| author |  Joey Hess <joey@kitenet.net> | 2010-10-31 23:38:07 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2010-10-31 23:38:07 -0400 |
| commit | cec25153ecd4f824cf150afbd294ad0c5ed1413e (patch) | |
| tree | e9326121cd6be570c48fb7d09b047e52599ba1c3 /Commands.hs | |
| parent | 00d4c7cd01b6f6e863a22483b9ea20ca5260da43 (diff) | |
bugfix: git annex move --from <file remote>
The data structure comparison didn't work because for a file remote,
the config gets read for one structure but not the other.
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) |