From 1d85171e595ca376fcb23687a39cfd93c74483d8 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 25 Apr 2013 16:42:17 -0400
Subject: webapp: Display some additional information about a repository on its
 edit page.

---
 Remote/S3.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'Remote')

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
-- 
cgit v1.2.3