fixed dropkey, setkey, and git-annex-shell subcommands

key is now specified as the full key, no --backend needed
This commit is contained in:
Joey Hess 2011-03-15 22:42:34 -04:00
parent da504f647f
commit 2e1cc2f8b9
6 changed files with 17 additions and 41 deletions

View file

@ -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