attempt :D

frontend/src/Main.elm

@@ -48,6 +48,12 @@ init flags url key =
     )
 
 
+type Page
+    = NotFound
+    | Index
+    | SwitchData PSD.Model
+
+
 type Msg
     = LinkClicked Browser.UrlRequest
     | UrlChanged Url.Url
@@ -113,8 +119,17 @@ update msg model =
             , Nav.load "/"
             )
 
-        _ ->
+        GotSwitchDataMSG psd_msg ->
-            ( model, Cmd.none )
+            let
+                ( psd_model, cmd ) =
+                    PSD.update
+                        (Maybe.withDefault "" model.token)
+                        psd_msg
+                        model.switch_data_model
+            in
+            ( { model | switch_data_model = psd_model }
+            , Cmd.map GotSwitchDataMSG cmd
+            )
 
 
 subscriptions : Model -> Sub Msg
@@ -156,6 +171,9 @@ view model =
                             ]
                         ]
 
+                "/switch" ->
+                    PSD.view model.switch_data_model
+
                 other ->
                     template "Not found"
                         [ h1 [] [ text "Not found" ]

frontend/src/Page/SwitchData.elm

@@ -29,12 +29,14 @@ type Data
     | Error String
 
 
-init : Model
+init : ( Model, Cmd Msg )
 init =
-    Model
+    ( Model
         0
         40
         Init
+    , NeedData
+    )
 
 
 type Msg
@@ -45,6 +47,10 @@ type Msg
 
 update : String -> Msg -> Model -> ( Model, Cmd Msg )
 update token msg model =
+    if token == "" then
+        ( model, Cmd.none )
+
+    else
         case msg of
             NeedData ->
                 ( model

frontend/src/SwitchData.elm

@@ -7,6 +7,8 @@ module SwitchData exposing
     , switchURL
     )
 
+import Html exposing (..)
+import Html.Attributes exposing (..)
 import Iso8601
 import Json.Decode exposing (Decoder, field, int, map5, nullable, string)
 import Time exposing (Posix)