karchnu
/
halogen-websocket-ipc-playzone
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

beta
Philippe Pittoli 2024-02-24 03:37:23 +01:00
parent 33a8d451ba
commit f6602be98f
2 changed files with 7 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/App/DomainListInterface.purs
View File

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

8
src/Bulma.purs
View File

@ -271,14 +271,6 @@ new_domain_field inputaction text_ selectaction accepted_domains
, HH.p , HH.p
[ HP.classes C.control ] [ HP.classes C.control ]
[ select selectaction $ map option accepted_domains ] [ 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 code :: forall w i. String -> HH.HTML w i