all repos

onasty @ main

a one-time notes service

onasty/web/src/Auth.elm(view raw) 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
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..."