Delegation: display the nameservers in RO buttons.

This commit is contained in:
Philippe Pittoli 2025-09-29 19:36:36 +02:00
parent 7c4ea8604b
commit fdec7a2cdb

View file

@ -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