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

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 = Find.start o `withFilesInRefs` 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`

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 FindRef 2015-07-11 00:38:11 +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`
			seek o = Find.start o `withFilesInRefs` Find.findThese o