Delegation: display the nameservers in RO buttons.
This commit is contained in:
parent
7c4ea8604b
commit
fdec7a2cdb
1 changed files with 6 additions and 1 deletions
|
@ -267,7 +267,12 @@ render state
|
|||
|
||||
-- render_zone_records :: Maybe Delegation -> HH.HTML i Action
|
||||
render_zone_records (Just delegation) =
|
||||
[ Web.p $ "This domain has been delegated to " <> delegation.nameserver1 <> " and " <> delegation.nameserver2 ]
|
||||
[ Web.p "This domain has been delegated to the following nameservers:"
|
||||
, Web.ul [ HH.li_ [ Web.btn_ro [C.is_warning] delegation.nameserver1 ]
|
||||
, HH.li_ [ Web.btn_ro [C.is_warning] delegation.nameserver2 ]
|
||||
]
|
||||
, Web.p "For now the nameservers cannot be updated (but you can delete the domain and start again)."
|
||||
]
|
||||
render_zone_records _ =
|
||||
[ Table.resource_records (sorted state._resources) CreateUpdateRRModal DeleteRRModal NewToken
|
||||
, Web.hr
|
||||
|
|
Loading…
Add table
Reference in a new issue