From f5449aae16af431ce6474080d123a930209b2cde Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 16 Aug 2011 21:20:14 -0400 Subject: error out when dropping from http repo --- Remote/Git.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'Remote') 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 ] -- cgit v1.2.3