summaryrefslogtreecommitdiff
path: root/Command/InAnnex.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2011-03-15 22:42:34 -0400
committerGravatar Joey Hess <joey@kitenet.net>2011-03-15 22:42:34 -0400
commit2e1cc2f8b98aaf9e01b620d557c42d5b1ae2aaa6 (patch)
tree57ad758d6a1e193a2cf9974e1d4172f500548e6f /Command/InAnnex.hs
parentda504f647fdbec7aa3a3c08244520de2c00898ef (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.hs13
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