mirror of
https://gitlab.com/upRootNutrition/website.git
synced 2025-06-17 12:55:12 -05:00
31 lines
715 B
Elm
31 lines
715 B
Elm
|
module Auth exposing (User, onPageLoad, viewLoadingPage)
|
||
|
|
|
||
|
|
import Auth.Action
|
||
|
|
import Dict
|
||
|
|
import Route exposing (Route)
|
||
|
|
import Route.Path
|
||
|
|
import Shared
|
||
|
|
import View exposing (View)
|
||
|
|
|
||
|
|
|
||
|
|
type alias User =
|
||
|
|
{}
|
||
|
|
|
||
|
|
|
||
|
|
{-| Called before an auth-only page is loaded.
|
||
|
|
-}
|
||
|
|
onPageLoad : Shared.Model -> Route () -> Auth.Action.Action User
|
||
|
|
onPageLoad shared route =
|
||
|
|
Auth.Action.pushRoute
|
||
|
|
{ path = Route.Path.NotFound_
|
||
|
|
, query = Dict.empty
|
||
|
|
, hash = Nothing
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
{-| Renders whenever `Auth.Action.showLoadingPage` is returned from `onPageLoad`.
|
||
|
|
-}
|
||
|
|
viewLoadingPage : Shared.Model -> Route () -> View Never
|
||
|
|
viewLoadingPage shared route =
|
||
|
|
View.fromString "Loading..."
|