diff options
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 |