webapp: Display some additional information about a repository on its edit page.
This commit is contained in:
parent
3e396a3b89
commit
e3ea36174b
7 changed files with 73 additions and 16 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue