webapp: Display some additional information about a repository on its edit page.

Assistant/WebApp/Configurators/AWS.hs

@@ -208,3 +208,8 @@ makeAWSRemote remotetype (AWSCreds ak sk) name setup config = do
 	hostname = case filter isAlphaNum name of
 		[] -> "aws"
 		n -> n
+
+getRepoInfo :: RemoteConfig -> Widget
+getRepoInfo c = [whamlet|S3 remote using bucket: #{bucket}|]
+  where
+	bucket = fromMaybe "" $ M.lookup "bucket" c