Baguette/dnsmanager-webclient
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Delegation: display the nameservers in RO buttons.

Browse source
This commit is contained in:
Philippe Pittoli 2025-09-29 19:36:36 +02:00
parent 7c4ea8604b
commit fdec7a2cdb
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/App/Page/Zone.purs
View file

@ -267,7 +267,12 @@ render state
-- render_zone_records :: Maybe Delegation -> HH.HTML i Action -- render_zone_records :: Maybe Delegation -> HH.HTML i Action
render_zone_records (Just delegation) = 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 _ = render_zone_records _ =
[ Table.resource_records (sorted state._resources) CreateUpdateRRModal DeleteRRModal NewToken [ Table.resource_records (sorted state._resources) CreateUpdateRRModal DeleteRRModal NewToken
, Web.hr , Web.hr