DomainList: put table elements in proper "td" html tags.

This commit is contained in:
Philippe PITTOLI 2024-04-25 23:03:33 +02:00
parent 797f2ce248
commit c98de0e4f0

View File

@ -241,15 +241,14 @@ render { accepted_domains, my_domains, newDomainForm, askDomainTransferForm, act
[ HH.td_ [ Bulma.btn domain.name (EnterDomain domain.name) ]
, HH.td_ [ HH.text $ fromMaybe "" domain.share_key ]
, if A.length domain.owners == 1
then Bulma.alert_btn "Unshare" (UnshareDomain domain.name)
else Bulma.btn_ro (C.is_warning) "Cannot unshare it"
then HH.td_ [ Bulma.alert_btn "Unshare" (UnshareDomain domain.name) ]
else HH.td_ [ Bulma.btn_ro (C.is_warning) "Cannot unshare it" ]
]
owned_domain_row domain = HH.tr_
[ HH.td_ [ Bulma.btn domain.name (EnterDomain domain.name) ]
, HH.td_ [ Bulma.btn_ro (C.is_warning) "Share" ]
-- , Bulma.btn "Share" (ShareDomain domain.name)
, Bulma.alert_btn "Delete" (DeleteDomainModal domain.name)
, HH.td_ [ Bulma.btn "Share" (ShareDomain domain.name) ]
, HH.td_ [ Bulma.alert_btn "Delete" (DeleteDomainModal domain.name) ]
]
render_add_domain_form = HH.form