diff options
author | Joey Hess <joey@kitenet.net> | 2011-11-09 18:33:15 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2011-11-09 18:33:15 -0400 |
commit | d3e1a3619ff6939367f43cbd46131b7f60ef6bd0 (patch) | |
tree | bc7e29364f11d3369730b0b61ad58e942b95d1cf /Remote.hs | |
parent | 2934a65ac5bbab5ac127c495c8c2492e729c2b67 (diff) |
safer inannex checking
git-annex-shell inannex now returns always 0, 1, or 100 (the last when
it's unclear if content is currently in the index due to it currently being
moved or dropped).
(Actual locking code still not yet written.)
Diffstat (limited to 'Remote.hs')
-rw-r--r-- | Remote.hs | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -26,7 +26,7 @@ module Remote ( showTriedRemotes, showLocations, forceTrust, - remoteHasKey + logStatus ) where import qualified Data.Map as M @@ -230,7 +230,7 @@ forceTrust level remotename = do - 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 always be relied on. -} -remoteHasKey :: Remote Annex -> Key -> Bool -> Annex () -remoteHasKey remote key present = logChange key (uuid remote) status +logStatus :: Remote Annex -> Key -> Bool -> Annex () +logStatus remote key present = logChange key (uuid remote) status where status = if present then InfoPresent else InfoMissing |