diff options
| -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 ] |