From 108c78a2063827eb5960cc75b4f884565382affe Mon Sep 17 00:00:00 2001 From: Philippe PITTOLI Date: Sun, 28 Apr 2024 01:24:33 +0200 Subject: [PATCH] Show the transfer key. --- src/App/Page/DomainList.purs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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) ] ]