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 /Remote | |
| parent | f938e767f36a32d52456fbdd15345b1fc26bb18d (diff) | |
webapp: Display some additional information about a repository on its edit page.
Diffstat (limited to 'Remote')
| -rw-r--r-- | Remote/S3.hs | 5 |
1 files changed, 4 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 |