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
 --------------------------------------------------------------------------------