diff options
| author |  Joey Hess <joeyh@joeyh.name> | 2014-12-08 19:14:24 -0400 |
|---|---|---|
| committer | Joey Hess <joeyh@joeyh.name> | 2014-12-08 19:15:07 -0400 |
| commit | 929de31900dbc9654e0bcc1f4679f526aee7f99a (patch) | |
| tree | d868a3bbae9a0af26191f461f317f6d40b08a2af /Remote/S3.hs | |
| parent | 28764ce2dc29d1d93989b4061b5b12bac10902de (diff) | |
Urls can now be claimed by remotes. This will allow creating, for example, a external special remote that handles magnet: and *.torrent urls.
Diffstat (limited to 'Remote/S3.hs')
| -rw-r--r-- | Remote/S3.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/Remote/S3.hs b/Remote/S3.hs index 42f4f1ffb..f56904729 100644 --- a/Remote/S3.hs +++ b/Remote/S3.hs @@ -93,7 +93,8 @@ gen r u c gc = do else Nothing , Just ("partsize", maybe "unlimited" (roughSize storageUnits False) (getPartSize c)) ], - claimUrl = Nothing + claimUrl = Nothing, + checkUrl = const $ return Nothing } s3Setup :: Maybe UUID -> Maybe CredPair -> RemoteConfig -> Annex (RemoteConfig, UUID) @@ -163,7 +164,7 @@ store r h = fileStorer $ \k f p -> do _ -> singlepartupload k f p -- Store public URL to item in Internet Archive. when (isIA (hinfo h) && not (isChunkKey k)) $ - setUrlPresent k (iaKeyUrl r k) + setUrlPresent webUUID k (iaKeyUrl r k) return True where singlepartupload k f p = do |