everything starts to connect, still a big mess though !!
This commit is contained in:
11
src/Main.elm
11
src/Main.elm
@@ -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, _ ) ->
|
||||
|
||||
Reference in New Issue
Block a user