summaryrefslogtreecommitdiff
path: root/Command/Move.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-01-19 15:24:05 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-01-19 15:24:05 -0400
commit90319afa41ca6d8a9ffe00d787dc3dcdff320f00 (patch)
tree68b9a324b9feb7ed45cc7ab24dc82e120cc26ff3 /Command/Move.hs
parentd36525e9745b90cc04abfeac6500ff646cb9c89b (diff)
fsck --from
Fscking a remote is now supported. It's done by retrieving the contents of the specified files from the remote, and checking them, so can be an expensive operation. (Several optimisations are possible, to speed it up, of course.. This is the slow and stupid remote fsck to start with.) Still, if the remote is a special remote, or a git repository that you cannot run fsck in locally, it's nice to have the ability to fsck it. If you have any directory special remotes, now would be a good time to fsck them, in case you were hit by the data loss bug fixed in the previous release!
Diffstat (limited to 'Command/Move.hs')
-rw-r--r--Command/Move.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/Command/Move.hs b/Command/Move.hs
index 2efaebbcb..2f2cd1b5d 100644
--- a/Command/Move.hs
+++ b/Command/Move.hs
@@ -15,6 +15,7 @@ import Annex.Content
import qualified Remote
import Annex.UUID
import qualified Option
+import Logs.Presence
def :: [Command]
def = [withOptions options $ command "move" paramPaths seek
@@ -97,7 +98,7 @@ toPerform dest move key = moveLock move key $ do
Right True -> finish
where
finish = do
- Remote.logStatus dest key True
+ Remote.logStatus dest key InfoPresent
if move
then do
whenM (inAnnex key) $ removeAnnex key