git-annex/Command/InAnnex.hs

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

module Command.InAnnex where

import Common.Annex
import Command
import Annex.Content

def :: [Command]
def = [command "inannex" (paramRepeating paramKey) seek
	"checks if keys are present in the annex"]

seek :: [CommandSeek]
seek = [withKeys start]

start :: Key -> CommandStart
start key = do
	present <- inAnnex key
	if present
		then stop
		else liftIO exitFailure
git-annex-shell mostly done now, only needs 2 more subcommands 2010-12-30 20:08:22 -04:00			`{- git-annex command`
			`-`
			`- Copyright 2010 Joey Hess <joey@kitenet.net>`
			`-`
			`- Licensed under the GNU GPL version 3 or higher.`
			`-}`

			`module Command.InAnnex where`

rename 2011-10-05 16:02:51 -04:00			`import Common.Annex`
git-annex-shell mostly done now, only needs 2 more subcommands 2010-12-30 20:08:22 -04:00			`import Command`
rename 2011-10-04 00:40:47 -04:00			`import Annex.Content`
git-annex-shell mostly done now, only needs 2 more subcommands 2010-12-30 20:08:22 -04:00
clean up check selection code This new approach allows filtering out checks from the default set that are not appropriate for a command, rather than having to list every check that is appropriate. It also reduces some boilerplate. Haskell does not define Eq for functions, so I had to go a long way around with each check having a unique id. Meh. 2011-10-29 15:19:05 -04:00			`def :: [Command]`
			`def = [command "inannex" (paramRepeating paramKey) seek`
			`"checks if keys are present in the annex"]`
git-annex-shell mostly done now, only needs 2 more subcommands 2010-12-30 20:08:22 -04:00
			`seek :: [CommandSeek]`
			`seek = [withKeys start]`

remove command type definitions These were a mistake, they make the type signatures harder to read and less flexible. The CommandSeek, CommandStart, CommandPerform, and CommandCleanup types were a good idea, but composing them with the parameters expected is going too far. 2011-09-15 16:50:49 -04:00			`start :: Key -> CommandStart`
fixed dropkey, setkey, and git-annex-shell subcommands key is now specified as the full key, no --backend needed 2011-03-15 22:42:34 -04:00			`start key = do`
git-annex-shell mostly done now, only needs 2 more subcommands 2010-12-30 20:08:22 -04:00			`present <- inAnnex key`
			`if present`
refactor some boilerplate 2011-05-15 02:02:46 -04:00			`then stop`
finished hlint pass 2011-07-15 12:47:14 -04:00			`else liftIO exitFailure`