git-annex/Command/FindRef.hs

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

module Command.FindRef where

import Command
import qualified Command.Find as Find
import qualified Git

cmd :: Command
cmd = withGlobalOptions [nonWorkTreeMatchingOptions] $ Find.mkCommand $ 
	command "findref" SectionPlumbing
		"lists files in a git ref"
		paramRef (seek <$$> Find.optParser)

seek :: Find.FindOptions -> CommandSeek
seek o = (commandAction . uncurry (Find.start o))
	`withFilesInRefs` (map Git.Ref $ Find.findThese o)
findref: New command, like find but shows files in a specified git ref. 2014-04-17 22:41:24 +00:00			`{- git-annex command`
			`-`
update my email address and homepage url 2015-01-21 16:50:09 +00:00			`- Copyright 2014 Joey Hess <id@joeyh.name>`
findref: New command, like find but shows files in a specified git ref. 2014-04-17 22:41:24 +00:00			`-`
			`- Licensed under the GNU GPL version 3 or higher.`
			`-}`

			`module Command.FindRef where`

			`import Command`
			`import qualified Command.Find as Find`
improve type 2017-08-31 16:47:08 +00:00			`import qualified Git`
findref: New command, like find but shows files in a specified git ref. 2014-04-17 22:41:24 +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`
add --json-error-messages (not yet implemented) Added --json-error-messages option, which includes error messages in the json output, rather than outputting them to stderr. The actual rediretion of errors is not implemented yet, this is only the docs and option plumbing. This commit was supported by the NSF-funded DataLad project. 2018-02-19 18:28:17 +00:00			`cmd = withGlobalOptions [nonWorkTreeMatchingOptions] $ Find.mkCommand $`
convert all commands to work with optparse-applicative Still no options though. 2015-07-08 19:08:02 +00:00			`command "findref" SectionPlumbing`
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			`"lists files in a git ref"`
convert FindRef 2015-07-11 00:38:11 +00:00			`paramRef (seek <$$> Find.optParser)`
findref: New command, like find but shows files in a specified git ref. 2014-04-17 22:41:24 +00:00
convert FindRef 2015-07-11 00:38:11 +00:00			`seek :: Find.FindOptions -> 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 o = (commandAction . uncurry (Find.start o))`
			`withFilesInRefs` (map Git.Ref $ Find.findThese o)