everything starts to connect, still a big mess though !!

This commit is contained in:
2019-12-01 16:00:57 +01:00
parent dbc99830d6
commit 09bd6560cc
11 changed files with 797 additions and 193 deletions

View File

@@ -7,7 +7,6 @@ import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Json.Encode as E
import Page exposing (Page)
import Page.Admin as Admin
import Page.Chest as Chest exposing (Msg)
import Route exposing (..)
import Session exposing (..)
@@ -130,7 +129,7 @@ viewHeaderBar navbarTitle navbarLinks navbar =
type Msg
= UrlChanged Url.Url
| LinkClicked Browser.UrlRequest
| SessionLoaded (Maybe Session)
| SessionLoaded (Result String Session)
| PageMsg Page.PageMsg
| SwitchMenuOpen
@@ -140,14 +139,18 @@ update msg model =
case ( msg, model.page ) of
( SessionLoaded session, _ ) ->
case session of
Just logged ->
Ok logged ->
let
( page, cmd ) =
Page.initHome logged
in
( model |> setPage page, Cmd.map PageMsg cmd )
Nothing ->
Err error ->
let
_ =
Debug.log "SessionLoaded Error" error
in
( model |> setPage Page.About, Cmd.none )
( LinkClicked urlRequest, _ ) ->