fixed dropkey, setkey, and git-annex-shell subcommands
key is now specified as the full key, no --backend needed
This commit is contained in:
parent
da504f647f
commit
2e1cc2f8b9
6 changed files with 17 additions and 41 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue