diff --git a/src/App/Page/DomainList.purs b/src/App/Page/DomainList.purs index b1333e9..a71fb80 100644 --- a/src/App/Page/DomainList.purs +++ b/src/App/Page/DomainList.purs @@ -256,7 +256,9 @@ render { accepted_domains, my_domains, newDomainForm, askDomainTransferForm, del owned_domain_row domain = HH.tr_ [ HH.td_ [ Bulma.btn domain.name (EnterDomain domain.name) ] - , HH.td_ [ Bulma.btn "Transfer" (TransferDomain domain.name) ] + , case domain.transfer_key of + Just key -> HH.td_ [ Bulma.p key ] + Nothing -> HH.td_ [ Bulma.btn "Transfer" (TransferDomain domain.name) ] , HH.td_ [ Bulma.btn "Share" (ShareDomain domain.name) ] , HH.td_ [ Bulma.alert_btn "Delete" (DeleteDomainModal domain.name) ] ]