git-annex/Command/InAnnex.hs

{- git-annex command
 -
 - Copyright 2010 Joey Hess <id@joeyh.name>
 -
 - Licensed under the GNU AGPL version 3 or higher.
 -}

module Command.InAnnex where

import Command
import Annex.Content

cmd :: Command
cmd = noCommit $ 
	command "inannex" SectionPlumbing 
		"checks if keys are present in the annex"
		(paramRepeating paramKey)
		(withParams seek)

seek :: CmdParams -> CommandSeek
seek = withKeys (commandAction . start)

start :: (SeekInput, Key) -> CommandStart
start (_, key) = inAnnexSafe key >>= dispatch
  where
	dispatch (Just True) = stop
	dispatch (Just False) = exit 1
	dispatch Nothing = exit 100
	exit n = liftIO $ exitWith $ ExitFailure n
git-annex-shell mostly done now, only needs 2 more subcommands 2010-12-31 00:08:22 +00:00			`{- git-annex command`
			`-`
update my email address and homepage url 2015-01-21 16:50:09 +00:00			`- Copyright 2010 Joey Hess <id@joeyh.name>`
git-annex-shell mostly done now, only needs 2 more subcommands 2010-12-31 00:08:22 +00:00			`-`
update licenses from GPL to AGPL This does not change the overall license of the git-annex program, which was already AGPL due to a number of sources files being AGPL already. Legally speaking, I'm adding a new license under which these files are now available; I already released their current contents under the GPL license. Now they're dual licensed GPL and AGPL. However, I intend for all my future changes to these files to only be released under the AGPL license, and I won't be tracking the dual licensing status, so I'm simply changing the license statement to say it's AGPL. (In some cases, others wrote parts of the code of a file and released it under the GPL; but in all cases I have contributed a significant portion of the code in each file and it's that code that is getting the AGPL license; the GPL license of other contributors allows combining with AGPL code.) 2019-03-13 19:48:14 +00:00			`- Licensed under the GNU AGPL version 3 or higher.`
git-annex-shell mostly done now, only needs 2 more subcommands 2010-12-31 00:08:22 +00:00			`-}`

			`module Command.InAnnex where`

			`import Command`
rename 2011-10-04 04:40:47 +00:00			`import Annex.Content`
git-annex-shell mostly done now, only needs 2 more subcommands 2010-12-31 00:08:22 +00:00
started converting to use optparse-applicative This is a work in progress. It compiles and is able to do basic command dispatch, including git autocorrection, while using optparse-applicative for the core commandline parsing. * Many commands are temporarily disabled before conversion. * Options are not wired in yet. * cmdnorepo actions don't work yet. Also, removed the [Command] list, which was only used in one place. 2015-07-08 16:33:27 +00:00			`cmd :: Command`
convert all commands to work with optparse-applicative Still no options though. 2015-07-08 19:08:02 +00:00			`cmd = noCommit $`
			`command "inannex" SectionPlumbing`
			`"checks if keys are present in the annex"`
			`(paramRepeating paramKey)`
			`(withParams seek)`
git-annex-shell mostly done now, only needs 2 more subcommands 2010-12-31 00:08:22 +00:00
started converting to use optparse-applicative This is a work in progress. It compiles and is able to do basic command dispatch, including git autocorrection, while using optparse-applicative for the core commandline parsing. * Many commands are temporarily disabled before conversion. * Options are not wired in yet. * cmdnorepo actions don't work yet. Also, removed the [Command] list, which was only used in one place. 2015-07-08 16:33:27 +00:00			`seek :: CmdParams -> CommandSeek`
move commandAction out of CmdLine.Seek This is groundwork for nested seek loops, eg seeking over all files and then performing commandActions on a list of remotes, which can be done concurrently. This commit was sponsored by Boyd Stephen Smith Jr. on Patreon. 2018-10-01 18:12:06 +00:00			`seek = withKeys (commandAction . start)`
git-annex-shell mostly done now, only needs 2 more subcommands 2010-12-31 00:08:22 +00:00
add SeekInput (not yet used) No behavior changes (hopefully), just adding SeekInput and plumbing it through to the JSON display code for later use. Over the course of 2 grueling days. withFilesNotInGit reimplemented in terms of seekHelper should be the only possible behavior change. It seems to test as behaving the same. Note that seekHelper dummies up the SeekInput in the case where segmentPaths' gives up on sorting the expanded paths because there are too many input paths. When SeekInput later gets exposed as a json field, that will result in it being a little bit wrong in the case where 100 or more paths are passed to a git-annex command. I think this is a subtle enough problem to not matter. If it does turn out to be a problem, fixing it would require splitting up the input parameters into groups of < 100, which would make git ls-files run perhaps more than is necessary. May want to revisit this, because that fix seems fairly low-impact. 2020-09-14 20:49:33 +00:00			`start :: (SeekInput, Key) -> CommandStart`
			`start (_, key) = inAnnexSafe key >>= dispatch`
where indentation 2012-11-12 05:05:04 +00:00			`where`
			`dispatch (Just True) = stop`
			`dispatch (Just False) = exit 1`
			`dispatch Nothing = exit 100`
			`exit n = liftIO $ exitWith $ ExitFailure n`