diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-04-25 16:42:17 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-04-25 16:42:17 -0400 |
| commit | 1d85171e595ca376fcb23687a39cfd93c74483d8 (patch) | |
| tree | 2d70daa48a16c42c959d8428aa53e1c4f679c4e5 | |
| parent | f938e767f36a32d52456fbdd15345b1fc26bb18d (diff) | |
webapp: Display some additional information about a repository on its edit page.
| -rw-r--r-- | Remote/S3.hs | 5 | ||||
| -rw-r--r-- | debian/changelog | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/Remote/S3.hs b/Remote/S3.hs index 7df1c2df3..5db5b705d 100644 --- a/Remote/S3.hs +++ b/Remote/S3.hs @@ -5,7 +5,7 @@ - Licensed under the GNU GPL version 3 or higher. -} -module Remote.S3 (remote, iaHost, isIAHost) where +module Remote.S3 (remote, iaHost, isIA, isIAHost, iaItemUrl) where import Network.AWS.AWSConnection import Network.AWS.S3Object @@ -283,3 +283,6 @@ isIA c = maybe False isIAHost (M.lookup "host" c) isIAHost :: HostName -> Bool isIAHost h = ".archive.org" `isSuffixOf` map toLower h + +iaItemUrl :: String -> String +iaItemUrl bucket = "http://archive.org/details/" ++ bucket diff --git a/debian/changelog b/debian/changelog index 31c53be58..c61579885 100644 --- a/debian/changelog +++ b/debian/changelog @@ -35,6 +35,8 @@ git-annex (4.20130418) UNRELEASED; urgency=low * webapp: Can now set up Internet Archive repositories. * S3: Dropping content from the Internet Archive doesn't work, but their API indicates it does. Always refuse to drop from there. + * webapp: Display some additional information about a repository on its edit + page. -- Joey Hess <joeyh@debian.org> Thu, 18 Apr 2013 16:22:48 -0400 |