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

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_ [ ]

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