onasty @ 92e3310a3546eabca5e2ba221001b46c0ceccbb0

module Auth exposing (User, onPageLoad, viewCustomPage)

import Auth.Action

import Auth.User

import Dict

import Route exposing (Route)

import Route.Path

import Shared

import View exposing (View)

type alias User =

    Auth.User.User

onPageLoad : Shared.Model -> Route () -> Auth.Action.Action User

onPageLoad shared _ =

    case shared.user of

        Auth.User.NotSignedIn ->

            Auth.Action.pushRoute

                { path = Route.Path.Auth

                , query = Dict.empty

                , hash = Nothing

                }

        Auth.User.RefreshingTokens ->

            Auth.Action.loadCustomPage

        Auth.User.SignedIn credentials ->

            Auth.Action.loadPageWithUser credentials

viewCustomPage : Shared.Model -> Route () -> View Never

viewCustomPage _ _ =

    View.fromString "Loading..."