From f6602be98f98a35db8eeb31a13cc5e552b617888 Mon Sep 17 00:00:00 2001 From: Philippe Pittoli Date: Sat, 24 Feb 2024 03:37:23 +0100 Subject: [PATCH] Change the form for new domains, this should fix phone rendering. --- src/App/DomainListInterface.purs | 7 +++++++ src/Bulma.purs | 8 -------- 2 files changed, 7 insertions(+), 8 deletions(-) diff --git a/src/App/DomainListInterface.purs b/src/App/DomainListInterface.purs index cc0827d..b894cb6 100644 --- a/src/App/DomainListInterface.purs +++ b/src/App/DomainListInterface.purs @@ -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_ [ ] diff --git a/src/Bulma.purs b/src/Bulma.purs index 1404701..e47c574 100644 --- a/src/Bulma.purs +++ b/src/Bulma.purs @@ -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