From d6265dd7f44538858989c1fe6837e1cafc489455 Mon Sep 17 00:00:00 2001
From: Jasper Van der Jeugt
Date: Wed, 29 Jul 2020 16:33:53 +0200
Subject: Further client stub

---
 client/src/Client.elm | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

(limited to 'client/src/Client.elm')

diff --git a/client/src/Client.elm b/client/src/Client.elm
index 1db70c7..77168c1 100644
--- a/client/src/Client.elm
+++ b/client/src/Client.elm
@@ -3,11 +3,19 @@ module Client exposing (main)
 import Browser
 import Html
 
-main : Program () () msg
-main = Browser.element
-    { init = \() -> ((), Cmd.none)
+type Message
+    = Ignore
+
+main : Program () () Message
+main = Browser.application
+    { init = \() url key -> ((), Cmd.none)
     , update = \_ model -> (model, Cmd.none)
     , subscriptions = \_ -> Sub.none
-    , view = \model -> Html.h1 [] [Html.text "Hi"]
+    , view = \model ->
+        { title = "Client"
+        , body = [Html.h1 [] [Html.text "Hi"]]
+        }
+    , onUrlChange = \url -> Ignore
+    , onUrlRequest = \urlRequest -> Ignore
     }
 
-- 
cgit v1.2.3