diff options
| author |  Joey Hess <joey@kitenet.net> | 2011-08-16 21:20:14 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2011-08-16 21:20:14 -0400 |
| commit | f5449aae16af431ce6474080d123a930209b2cde (patch) | |
| tree | c538f62a7baea284f27fa35dbcc7e2ef1ae49a28 | |
| parent | 790b0f38795ce9b62deda416c458376f1e7b7016 (diff) | |
error out when dropping from http repo
| -rw-r--r-- | Remote/Git.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Remote/Git.hs b/Remote/Git.hs index 1adf8cfeb..d4847d610 100644 --- a/Remote/Git.hs +++ b/Remote/Git.hs @@ -141,8 +141,9 @@ keyUrl :: Git.Repo -> Key -> String keyUrl r key = Git.repoLocation r ++ "/" ++ annexLocation key dropKey :: Git.Repo -> Key -> Annex Bool -dropKey r key = - onRemote r (boolSystem, False) "dropkey" +dropKey r key + | Git.repoIsHttp r = error "dropping from http repo not supported" + | otherwise = onRemote r (boolSystem, False) "dropkey" [ Params "--quiet --force" , Param $ show key ] |