diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-03-15 22:42:34 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-03-15 22:42:34 -0400 |
| commit | 2e1cc2f8b98aaf9e01b620d557c42d5b1ae2aaa6 (patch) | |
| tree | 57ad758d6a1e193a2cf9974e1d4172f500548e6f /Command/InAnnex.hs | |
| parent | da504f647fdbec7aa3a3c08244520de2c00898ef (diff) | |
fixed dropkey, setkey, and git-annex-shell subcommands
key is now specified as the full key, no --backend needed
Diffstat (limited to 'Command/InAnnex.hs')
| -rw-r--r-- | Command/InAnnex.hs | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/Command/InAnnex.hs b/Command/InAnnex.hs index a2beda4a5..fa81fc9a4 100644 --- a/Command/InAnnex.hs +++ b/Command/InAnnex.hs @@ -12,9 +12,6 @@ import System.Exit import Command import Content -import qualified Backend -import qualified BackendClass -import Key command :: [Command] command = [Command "inannex" (paramRepeating paramKey) seek @@ -23,14 +20,8 @@ command = [Command "inannex" (paramRepeating paramKey) seek seek :: [CommandSeek] seek = [withKeys start] -start :: CommandStartString -start keyname = do - backends <- Backend.list - let key = stubKey { - keyName = keyname, - keyBackendName = BackendClass.name (head backends) - } - error "BROKEN. fixme!" +start :: CommandStartKey +start key = do present <- inAnnex key if present then return Nothing |