Change the form for new domains, this should fix phone rendering.

This commit is contained in:
Philippe Pittoli 2024-02-24 03:37:23 +01:00
parent 33a8d451ba
commit f6602be98f
2 changed files with 7 additions and 8 deletions

View File

@ -23,6 +23,7 @@ import Halogen as H
import Halogen.HTML as HH
import Halogen.HTML.Events as HE
import Halogen.HTML.Events as HHE
import Halogen.HTML.Properties as HP
import Web.Event.Event as Event
import Web.Event.Event (Event)
import Bulma as Bulma
@ -31,6 +32,7 @@ import App.DisplayErrors (error_to_paragraph_label)
import App.Validation.Label as Validation
import CSSClasses as C
import App.LogMessage
import App.Messages.DNSManagerDaemon as DNSManager
@ -193,6 +195,11 @@ render { accepted_domains, my_domains, newDomainForm, wsUp, active_modal }
newDomainForm.new_domain
[ HHE.onSelectedIndexChange domain_choice ]
accepted_domains
, HH.button
[ HP.type_ HP.ButtonSubmit
, HP.classes C.button
]
[ HH.text "add a new domain!" ]
, if A.length newDomainForm._errors > 0
then HH.div_ $ map error_to_paragraph_label newDomainForm._errors
else HH.div_ [ ]

View File

@ -271,14 +271,6 @@ new_domain_field inputaction text_ selectaction accepted_domains
, HH.p
[ HP.classes C.control ]
[ select selectaction $ map option accepted_domains ]
, HH.p
[ HP.classes C.control ]
[ HH.button
[ HP.type_ HP.ButtonSubmit
, HP.classes C.button
]
[ HH.text "add a new domain!" ]
]
]
code :: forall w i. String -> HH.HTML w i