Baguette
/
dnsmanager-webclient
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Minor text changes.

display
Philippe Pittoli 2024-03-25 00:12:49 +01:00
parent 9456ebda82
commit ac4f8469ce
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/App/Container.purs
View File

@ -506,7 +506,7 @@ handleAction = case _ of
case current_page of case current_page of
Registration -> do Registration -> do
let successlog = """ let successlog = """
You are now registered, copy the token we sent you by email to finish your registration. You are now registered. Please verify your email address with the token we sent you.
""" """
handleAction $ Log $ SuccessLog successlog handleAction $ Log $ SuccessLog successlog
handleAction $ AddNotif $ GoodNotification successlog handleAction $ AddNotif $ GoodNotification successlog

4
src/App/Page/DomainList.purs
View File

@ -174,9 +174,9 @@ render { accepted_domains, my_domains, newDomainForm, wsUp, active_modal }
modal_delete_button domain = Bulma.alert_btn "Delete the domain" (RemoveDomain domain) modal_delete_button domain = Bulma.alert_btn "Delete the domain" (RemoveDomain domain)
modal_cancel_button = Bulma.cancel_button CancelModal modal_cancel_button = Bulma.cancel_button CancelModal
warning_message domain warning_message domain
= HH.p [] [ HH.text $ "You are about to delete your domain '" = HH.p [] [ HH.text $ "You are about to delete your domain \""
<> domain <> domain
<> "'. Are you sure you want to do this? This is " <> "\". Are you sure you want to do this? This is "
, HH.strong_ [ HH.text "irreversible" ] , HH.strong_ [ HH.text "irreversible" ]
, HH.text "." , HH.text "."
] ]

2
src/App/Page/Registration.purs
View File

@ -99,7 +99,7 @@ render { wsUp, registrationForm }
where where
b e = Bulma.column_ [ Bulma.box e ] b e = Bulma.column_ [ Bulma.box e ]
registration_form = [ Bulma.h3 "Register!", render_register_form ] registration_form = [ Bulma.h3 "Register", render_register_form ]
should_be_disabled = (if wsUp then (HP.enabled true) else (HP.disabled true)) should_be_disabled = (if wsUp then (HP.enabled true) else (HP.disabled true))