Coding style corrections.

src/App/AuthenticationForm.purs

@@ -80,11 +80,11 @@ initialState _ =
   }
 
 render :: forall m. State -> H.ComponentHTML Action () m
-render { wsUp,
+render { wsUp, authenticationForm, registrationForm }
-  authenticationForm,
+  = Bulma.section_small
-  registrationForm }
+      [ case wsUp of
-    = HH.div_
+          false -> Bulma.p "You are disconnected."
-       [ Bulma.columns_ [ Bulma.column_ auth_form, Bulma.column_ register_form ]
+          true  -> Bulma.columns_ [ Bulma.column_ auth_form, Bulma.column_ register_form ]
       ]
   where
 

src/App/DomainListInterface.purs

@@ -104,8 +104,10 @@ initialState token =
 
 render :: forall m. State -> H.ComponentHTML Action () m
 render { accepted_domains, my_domains, newDomainForm, wsUp }
-    = Bulma.section_medium
+  = Bulma.section_small
-        [ Bulma.columns_ [ Bulma.column_ newdomain_form, Bulma.column_ list_of_own_domains ]
+      [ case wsUp of
+          false -> Bulma.p "You are disconnected."
+          true  -> Bulma.columns_ [ Bulma.column_ newdomain_form, Bulma.column_ list_of_own_domains ]
       ]
   where
 

src/Bulma.purs

@@ -319,6 +319,9 @@ box_password :: forall w i.
   String -> String -> (String -> i) -> String -> Boolean -> (HP.IProp DHI.HTMLinput i) -> HH.HTML w i
 box_password = field_inner true
 
+section_small :: forall w i. Array (HH.HTML w i) -> HH.HTML w i
+section_small = HH.section [ HP.classes (C.section <> C.is_small) ]
+
 section_medium :: forall w i. Array (HH.HTML w i) -> HH.HTML w i
 section_medium = HH.section [ HP.classes (C.section <> C.medium) ]