summaryrefslogtreecommitdiff
path: root/Remote.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joeyh@joeyh.name>2014-12-11 12:47:57 -0400
committerGravatar Joey Hess <joeyh@joeyh.name>2014-12-11 12:47:57 -0400
commitbc0bf97b20c48e1d1a35d25e2e76a311c102438c (patch)
tree05934001ff6b3060cb477a1bd017316827eb050b /Remote.hs
parent7f5e752b41b559bce358a9d6a053a7b195706e80 (diff)
let url claims optionally include a suggested filename
Diffstat (limited to 'Remote.hs')
-rw-r--r--Remote.hs11
1 files changed, 0 insertions, 11 deletions
diff --git a/Remote.hs b/Remote.hs
index 65e725338..dd682493c 100644
--- a/Remote.hs
+++ b/Remote.hs
@@ -46,7 +46,6 @@ module Remote (
logStatus,
checkAvailable,
isXMPPRemote,
- claimingUrl,
) where
import qualified Data.Map as M
@@ -61,7 +60,6 @@ import Annex.UUID
import Logs.UUID
import Logs.Trust
import Logs.Location hiding (logStatus)
-import Logs.Web
import Remote.List
import Config
import Git.Types (RemoteName)
@@ -320,12 +318,3 @@ hasKey r k = either (Left . show) Right <$> tryNonAsync (checkPresent r k)
hasKeyCheap :: Remote -> Bool
hasKeyCheap = checkPresentCheap
-
-{- The web special remote claims urls by default. -}
-claimingUrl :: URLString -> Annex Remote
-claimingUrl url = do
- rs <- remoteList
- let web = Prelude.head $ filter (\r -> uuid r == webUUID) rs
- fromMaybe web <$> firstM checkclaim rs
- where
- checkclaim = maybe (pure False) (flip id url) . claimUrl