DomainList: put table elements in proper "td" html tags.
This commit is contained in:
parent
797f2ce248
commit
c98de0e4f0
@ -241,15 +241,14 @@ render { accepted_domains, my_domains, newDomainForm, askDomainTransferForm, act
|
|||||||
[ HH.td_ [ Bulma.btn domain.name (EnterDomain domain.name) ]
|
[ HH.td_ [ Bulma.btn domain.name (EnterDomain domain.name) ]
|
||||||
, HH.td_ [ HH.text $ fromMaybe "" domain.share_key ]
|
, HH.td_ [ HH.text $ fromMaybe "" domain.share_key ]
|
||||||
, if A.length domain.owners == 1
|
, if A.length domain.owners == 1
|
||||||
then Bulma.alert_btn "Unshare" (UnshareDomain domain.name)
|
then HH.td_ [ Bulma.alert_btn "Unshare" (UnshareDomain domain.name) ]
|
||||||
else Bulma.btn_ro (C.is_warning) "Cannot unshare it"
|
else HH.td_ [ Bulma.btn_ro (C.is_warning) "Cannot unshare it" ]
|
||||||
]
|
]
|
||||||
|
|
||||||
owned_domain_row domain = HH.tr_
|
owned_domain_row domain = HH.tr_
|
||||||
[ HH.td_ [ Bulma.btn domain.name (EnterDomain domain.name) ]
|
[ HH.td_ [ Bulma.btn domain.name (EnterDomain domain.name) ]
|
||||||
, HH.td_ [ Bulma.btn_ro (C.is_warning) "Share" ]
|
, HH.td_ [ Bulma.btn "Share" (ShareDomain domain.name) ]
|
||||||
-- , Bulma.btn "Share" (ShareDomain domain.name)
|
, HH.td_ [ Bulma.alert_btn "Delete" (DeleteDomainModal domain.name) ]
|
||||||
, Bulma.alert_btn "Delete" (DeleteDomainModal domain.name)
|
|
||||||
]
|
]
|
||||||
|
|
||||||
render_add_domain_form = HH.form
|
render_add_domain_form = HH.form
|
||||||
|
Loading…
Reference in New Issue
Block a user