Simplify a few things.

src/App/AuthenticationForm.purs

@@ -109,30 +109,16 @@ decodeMessageEvent = \msgEvent -> do
 ---------------------------
 
 data ErrorType
-  = MessageIsServerAdvertisement String
-  | UnknownError String
+  = UnknownError String
   | UnknownWebSocketError
 
 renderError :: ErrorType -> String
 renderError = case _ of
   UnknownError str ->
     "Unknown error: " <> str
-  MessageIsServerAdvertisement str ->
-    "Received following advertisment from server: " <> str
   UnknownWebSocketError ->
     "Unknown 'error' event has been fired by WebSocket event listener"
 
---------------------------------------------------------------------------------
--- `Main` function
---------------------------------------------------------------------------------
-
-main :: Effect Unit
-main = do
-  HA.runHalogenAff do
-    body <- HA.awaitBody
-    let url = "ws://localhost:8080"
-    runUI component url body
-
 --------------------------------------------------------------------------------
 -- WebSocket message type
 --------------------------------------------------------------------------------
@@ -205,7 +191,7 @@ wrapperStyle =
   """
 
 render :: forall m. State -> H.ComponentHTML Action () m
-render { messages, loginInputText, passInputText, wsConnection, canReconnect, messageHistoryLength  } =
+render { messages, loginInputText, passInputText, wsConnection, canReconnect, messageHistoryLength } =
   HH.div
   [ HP.style wrapperStyle ]
   [ HH.h2_ [ HH.text "Authentication!" ]