git-annex/Command/Copy.hs

{- git-annex command
 -
 - Copyright 2010 Joey Hess <joey@kitenet.net>
 -
 - Licensed under the GNU GPL version 3 or higher.
 -}

module Command.Copy where

import Common.Annex
import Command
import qualified Command.Move
import qualified Remote
import Annex.Wanted
import Config.NumCopies

cmd :: [Command]
cmd = [withOptions Command.Move.moveOptions $ command "copy" paramPaths seek
	SectionCommon "copy content of files to/from another repository"]

seek :: CommandSeek
seek ps = do
	to <- getOptionField toOption Remote.byNameWithUUID
	from <- getOptionField fromOption Remote.byNameWithUUID
	withKeyOptions
		(Command.Move.startKey to from False)
		(withFilesInGit $ whenAnnexed $ start to from)
		ps

{- A copy is just a move that does not delete the source file.
 - However, --auto mode avoids unnecessary copies, and avoids getting or
 - sending non-preferred content. -}
start :: Maybe Remote -> Maybe Remote -> FilePath -> Key -> CommandStart
start to from file key = stopUnless shouldCopy $ 
	Command.Move.start to from False file key
  where
	shouldCopy = checkAuto (check <||> numCopiesCheck file key (<))
	check = case to of
		Nothing -> wantGet False (Just key) (Just file)
		Just r -> wantSend False (Just key) (Just file) (Remote.uuid r)
add 2010-11-27 21:09:22 +00:00			`{- git-annex command`
			`-`
			`- Copyright 2010 Joey Hess <joey@kitenet.net>`
			`-`
			`- Licensed under the GNU GPL version 3 or higher.`
			`-}`

			`module Command.Copy where`

better limiting of start actions to only run whenAnnexed Mostly only refactoring, but this does remove one redundant stat of the symlink by copy. 2011-11-11 03:35:08 +00:00			`import Common.Annex`
add 2010-11-27 21:09:22 +00:00			`import Command`
			`import qualified Command.Move`
look up --to and --from remote names only once This will speed up commands like move and drop. 2012-01-06 08:02:35 +00:00			`import qualified Remote`
make copy --to check preferred content of the remote 2012-10-08 20:06:56 +00:00			`import Annex.Wanted`
reorg 2014-01-21 22:08:56 +00:00			`import Config.NumCopies`
add 2010-11-27 21:09:22 +00:00
doh't use "def" for command definitions, it conflicts with Data.Default.def 2014-10-14 18:20:10 +00:00			`cmd :: [Command]`
			`cmd = [withOptions Command.Move.moveOptions $ command "copy" paramPaths seek`
add section metadata to all commands Not yet used .. mindless train work. 2013-03-24 22:28:21 +00:00			`SectionCommon "copy content of files to/from another repository"]`
refactor in preparation for adding a git-annex-shell command 2010-12-30 19:06:26 +00:00
fix inversion of control in CommandSeek (no behavior changes) I've been disliking how the command seek actions were written for some time, with their inversion of control and ugly workarounds. The last straw to fix it was sync --content, which didn't fit the Annex [CommandStart] interface well at all. I have not yet made it take advantage of the changed interface though. The crucial change, and probably why I didn't do it this way from the beginning, is to make each CommandStart action be run with exceptions caught, and if it fails, increment a failure counter in annex state. So I finally remove the very first code I wrote for git-annex, which was before I had exception handling in the Annex monad, and so ran outside that monad, passing state explicitly as it ran each CommandStart action. This was a real slog from 1 to 5 am. Test suite passes. Memory usage is lower than before, sometimes by a couple of megabytes, and remains constant, even when running in a large repo, and even when repeatedly failing and incrementing the error counter. So no accidental laziness space leaks. Wall clock speed is identical, even in large repos. This commit was sponsored by an anonymous bitcoiner. 2014-01-20 08:11:42 +00:00			`seek :: CommandSeek`
			`seek ps = do`
			`to <- getOptionField toOption Remote.byNameWithUUID`
			`from <- getOptionField fromOption Remote.byNameWithUUID`
			`withKeyOptions`
fix some mixed space+tab indentation This fixes all instances of " \t" in the code base. Most common case seems to be after a "where" line; probably vim copied the two space layout of that line. Done as a background task while listening to episode 2 of the Type Theory podcast. 2014-10-09 18:53:13 +00:00			`(Command.Move.startKey to from False)`
fix inversion of control in CommandSeek (no behavior changes) I've been disliking how the command seek actions were written for some time, with their inversion of control and ugly workarounds. The last straw to fix it was sync --content, which didn't fit the Annex [CommandStart] interface well at all. I have not yet made it take advantage of the changed interface though. The crucial change, and probably why I didn't do it this way from the beginning, is to make each CommandStart action be run with exceptions caught, and if it fails, increment a failure counter in annex state. So I finally remove the very first code I wrote for git-annex, which was before I had exception handling in the Annex monad, and so ran outside that monad, passing state explicitly as it ran each CommandStart action. This was a real slog from 1 to 5 am. Test suite passes. Memory usage is lower than before, sometimes by a couple of megabytes, and remains constant, even when running in a large repo, and even when repeatedly failing and incrementing the error counter. So no accidental laziness space leaks. Wall clock speed is identical, even in large repos. This commit was sponsored by an anonymous bitcoiner. 2014-01-20 08:11:42 +00:00			`(withFilesInGit $ whenAnnexed $ start to from)`
			`ps`
copy --auto Only does copy when numcopies is not yet satisfied. 2011-09-15 19:27:45 +00:00
make copy --to check preferred content of the remote 2012-10-08 20:06:56 +00:00			`{- A copy is just a move that does not delete the source file.`
			`- However, --auto mode avoids unnecessary copies, and avoids getting or`
			`- sending non-preferred content. -}`
replace (Key, Backend) with Key Only fsck and reinject and the test suite used the Backend, and they can look it up as needed from the Key. This simplifies the code and also speeds it up. There is a small behavior change here. Before, all commands would warn when acting on an annexed file with an unknown backend. Now, only fsck and reinject show that warning. 2014-04-17 22:03:39 +00:00			`start :: Maybe Remote -> Maybe Remote -> FilePath -> Key -> CommandStart`
			`start to from file key = stopUnless shouldCopy $`
			`Command.Move.start to from False file key`
where indentation 2012-11-12 05:05:04 +00:00			`where`
--auto fixes * get/copy --auto: Transfer data even if it would exceed numcopies, when preferred content settings want it. * drop --auto: Fix dropping content when there are no preferred content settings. 2012-12-06 17:22:16 +00:00			`shouldCopy = checkAuto (check <\|\|> numCopiesCheck file key (<))`
			`check = case to of`
fix transfers of key with no associated file Several places assumed this would not happen, and when the AssociatedFile was Nothing, did nothing. As part of this, preferred content checks pass the Key around. Note that checkMatcher is sometimes now called with Just Key and Just File. It currently constructs a FileMatcher, ignoring the Key. However, if it constructed a FileKeyMatcher, which contained both, then it might be possible to speed up parts of Limit, which currently call the somewhat expensive lookupFileKey to get the Key. I have not made this optimisation yet, because I am not sure if the key is always the same. Will need some significant checking to satisfy myself that's the case.. 2014-01-23 20:37:08 +00:00			`Nothing -> wantGet False (Just key) (Just file)`
			`Just r -> wantSend False (Just key) (Just file) (Remote.uuid r)`