git-annex-shell mostly done now, only needs 2 more subcommands

1 files changed, 32 insertions, 0 deletions

diff --git a/Command/InAnnex.hs b/Command/InAnnex.hs
new file mode 100644
index 000000000..d49539513
--- /dev/null
+++ b/Command/InAnnex.hs
@@ -0,0 +1,32 @@
+{- git-annex command
+ -
+ - Copyright 2010 Joey Hess <joey@kitenet.net>
+ -
+ - Licensed under the GNU GPL version 3 or higher.
+ -}
+
+module Command.InAnnex where
+
+import Control.Monad.State (liftIO)
+import System.Exit
+
+import Command
+import Types
+import Core
+import qualified Backend
+
+command :: [Command]
+command = [Command "inannex" (paramRepeating paramKey) seek
+		"checks if keys are present in the annex"]
+
+seek :: [CommandSeek]
+seek = [withKeys start]
+
+start :: CommandStartString
+start keyname = do
+	backends <- Backend.list
+	let key = genKey (head backends) keyname
+	present <- inAnnex key
+	if present
+		then return Nothing
+		else liftIO $ exitFailure