diff options
author | 2011-06-22 18:32:41 -0400 | |
---|---|---|
committer | 2011-06-22 18:32:41 -0400 | |
commit | 80302d0b46c5d45df1cf290796e0e27d9264ece8 (patch) | |
tree | c97312a531f5cf2ef514ddb5224395b614eb2b25 /Command/Move.hs | |
parent | 944c51ba26efc39416c5f148b6ec36151dc7f42e (diff) |
improve bare repo handing
Many more commands can work in bare repos now, thanks to the git-annex
branch.
Diffstat (limited to 'Command/Move.hs')
-rw-r--r-- | Command/Move.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Command/Move.hs b/Command/Move.hs index f49fe20e0..7fa195bab 100644 --- a/Command/Move.hs +++ b/Command/Move.hs @@ -51,12 +51,12 @@ showAction False file = showStart "copy" file {- Used to log a change in a remote's having a key. The change is logged - in the local repo, not on the remote. The process of transferring the - key to the remote, or removing the key from it *may* log the change - - on the remote, but this cannot be relied on. For example, it's not done - - for bare repos. -} + - on the remote, but this cannot be relied on. -} remoteHasKey :: Remote.Remote Annex -> Key -> Bool -> Annex () remoteHasKey remote key present = do let remoteuuid = Remote.uuid remote - logStatusFor remoteuuid key status + g <- Annex.gitRepo + logChange g key remoteuuid status where status = if present then ValuePresent else ValueMissing |