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 AnnexCommon
import Command
import Content

command :: [Command]
command = [repoCommand "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-31 00:08:22 +00:00			`{- git-annex command`
			`-`
			`- Copyright 2010 Joey Hess <joey@kitenet.net>`
			`-`
			`- Licensed under the GNU GPL version 3 or higher.`
			`-}`

			`module Command.InAnnex where`

factor out common imports no code changes 2011-10-04 02:24:57 +00:00			`import AnnexCommon`
git-annex-shell mostly done now, only needs 2 more subcommands 2010-12-31 00:08:22 +00:00			`import Command`
got rid of Core module Most of it was to do with managing annexed Content, so put there 2011-01-16 20:05:05 +00:00			`import Content`
git-annex-shell mostly done now, only needs 2 more subcommands 2010-12-31 00:08:22 +00:00
			`command :: [Command]`
avoid version check before running version and upgrade commands There are two types of commands; those that access the repository and those that don't. Sorted. 2011-03-19 22:58:49 +00:00			`command = [repoCommand "inannex" (paramRepeating paramKey) seek`
git-annex-shell mostly done now, only needs 2 more subcommands 2010-12-31 00:08:22 +00:00			`"checks if keys are present in the annex"]`

			`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 20:50:49 +00: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-16 02:42:34 +00:00			`start key = do`
git-annex-shell mostly done now, only needs 2 more subcommands 2010-12-31 00:08:22 +00:00			`present <- inAnnex key`
			`if present`
refactor some boilerplate 2011-05-15 06:02:46 +00:00			`then stop`
finished hlint pass 2011-07-15 16:47:14 +00:00			`else liftIO exitFailure`