add dropkey subcommand and --quiet

Needed for better git annex move --from
This commit is contained in:
Joey Hess 2010-10-25 18:32:29 -04:00
parent 8beed17168
commit d0a9cdadaf
7 changed files with 87 additions and 56 deletions

View file

@ -156,7 +156,7 @@ workTree repo =
- name to use to refer to the file relative to a git repository's top.
- This is the same form displayed and used by git. -}
relative :: Repo -> String -> String
relative repo file = drop (length absrepo) absfile
relative repo file = assertLocal repo $ drop (length absrepo) absfile
where
-- normalize both repo and file, so that repo
-- will be substring of file