Update counter app, add to preview/ReviewConfig.elm, install packages…

… in counter/

counter/auth-vendored/Auth/Common.elm

@@ -0,0 +1,301 @@
+module Auth.Common exposing
+    ( AuthChallengeReason(..)
+    , AuthCode
+    , BackendMsg(..)
+    , ClientId
+    , Config
+    , ConfigurationEmailMagicLink
+    , ConfigurationOAuth
+    , Error(..)
+    , Flow(..)
+    , FrontendMsg(..)
+    , LogoutEndpointConfig(..)
+    , Method(..)
+    , MethodId
+    , PendingAuth
+    , PendingEmailAuth
+    , Provider(..)
+    , SessionId
+    , SessionIdString
+    , State
+    , ToBackend(..)
+    , ToFrontend(..)
+    , Token
+    , UserInfo
+    , base64
+    , convertBytes
+    , defaultHttpsUrl
+    , nothingIfEmpty
+    , sleepTask
+    , toBytes
+    )
+
+import Base64.Encode as Base64
+import Browser.Navigation exposing (Key)
+import Bytes exposing (Bytes)
+import Bytes.Encode as Bytes
+import Dict exposing (Dict)
+import EmailAddress
+import Http
+import Json.Decode as Json
+import OAuth
+import OAuth.AuthorizationCode as OAuth
+import Postmark
+import Process
+import Task exposing (Task)
+import Time
+import Url exposing (Protocol(..), Url)
+import User
+
+
+type alias Config frontendMsg toBackend backendMsg toFrontend frontendModel backendModel =
+    { toBackend : ToBackend -> toBackend
+    , toFrontend : ToFrontend -> toFrontend
+    , backendMsg : BackendMsg -> backendMsg
+    , sendToFrontend : SessionId -> toFrontend -> Cmd backendMsg
+    , sendToBackend : toBackend -> Cmd frontendMsg
+    , methods : List (Method frontendMsg backendMsg frontendModel backendModel)
+    , renewSession : SessionId -> ClientId -> backendModel -> ( backendModel, Cmd backendMsg )
+    }
+
+
+type Method frontendMsg backendMsg frontendModel backendModel
+    = ProtocolOAuth (ConfigurationOAuth frontendMsg backendMsg frontendModel backendModel)
+    | ProtocolEmailMagicLink (ConfigurationEmailMagicLink frontendMsg backendMsg frontendModel backendModel)
+
+
+type alias ConfigurationEmailMagicLink frontendMsg backendMsg frontendModel backendModel =
+    { id : String
+    , initiateSignin :
+        SessionId
+        -> ClientId
+        -> backendModel
+        -> { username : Maybe String }
+        -> Time.Posix
+        -> ( backendModel, Cmd backendMsg )
+    , onFrontendCallbackInit :
+        frontendModel
+        -> MethodId
+        -> Url
+        -> Key
+        -> (ToBackend -> Cmd frontendMsg)
+        -> ( frontendModel, Cmd frontendMsg )
+    , onAuthCallbackReceived :
+        SessionId
+        -> ClientId
+        -> Url
+        -> AuthCode
+        -> State
+        -> Time.Posix
+        -> (BackendMsg -> backendMsg)
+        -> backendModel
+        -> ( backendModel, Cmd backendMsg )
+    , placeholder : frontendMsg -> backendMsg -> frontendModel -> backendModel -> ()
+    }
+
+
+type alias ConfigurationOAuth frontendMsg backendMsg frontendModel backendModel =
+    { id : String
+    , authorizationEndpoint : Url
+    , tokenEndpoint : Url
+    , logoutEndpoint : LogoutEndpointConfig
+    , allowLoginQueryParameters : Bool
+    , clientId : String
+    , clientSecret : String
+    , scope : List String
+    , getUserInfo : OAuth.AuthenticationSuccess -> Task Error UserInfo
+    , onFrontendCallbackInit :
+        frontendModel
+        -> MethodId
+        -> Url
+        -> Key
+        -> (ToBackend -> Cmd frontendMsg)
+        -> ( frontendModel, Cmd frontendMsg )
+    , placeholder : ( backendModel, backendMsg ) -> ()
+    }
+
+
+type alias SessionIdString =
+    String
+
+
+type FrontendMsg
+    = AuthSigninRequested Provider
+
+
+type ToBackend
+    = AuthSigninInitiated { methodId : MethodId, baseUrl : Url, username : Maybe String }
+    | AuthCallbackReceived MethodId Url AuthCode State
+    | AuthRenewSessionRequested
+    | AuthLogoutRequested
+    | AuthCheckLoginRequest
+    | AuthSigInWithToken Int
+
+
+type BackendMsg
+    = AuthSigninInitiated_ { sessionId : SessionId, clientId : ClientId, methodId : MethodId, baseUrl : Url, now : Time.Posix, username : Maybe String }
+    | AuthSigninInitiatedDelayed_ SessionId ToFrontend
+    | AuthCallbackReceived_ SessionId ClientId MethodId Url String String Time.Posix
+    | AuthSuccess SessionId ClientId MethodId Time.Posix (Result Error ( UserInfo, Maybe Token ))
+    | AuthRenewSession SessionId ClientId
+    | AuthLogout SessionId ClientId
+    | AuthSentLoginEmail Time.Posix EmailAddress.EmailAddress (Result Http.Error Postmark.PostmarkSendResponse)
+
+
+type ToFrontend
+    = AuthInitiateSignin Url
+    | AuthError Error
+    | AuthSessionChallenge AuthChallengeReason
+    | AuthSignInWithTokenResponse (Result Int User.LoginData)
+    | ReceivedMessage (Result String String)
+
+
+type AuthChallengeReason
+    = AuthSessionMissing
+    | AuthSessionInvalid
+    | AuthSessionExpired
+    | AuthSessionLoggedOut
+
+
+type alias Token =
+    { methodId : MethodId
+    , token : OAuth.Token
+    , created : Time.Posix
+    , expires : Time.Posix
+    }
+
+
+type LogoutEndpointConfig
+    = Home { returnPath : String }
+    | Tenant { url : Url, returnPath : String }
+
+
+type Provider
+    = EmailMagicLink
+    | OAuthGithub
+    | OAuthGoogle
+    | OAuthAuth0
+
+
+type Flow
+    = Idle
+    | Requested MethodId
+    | Pending
+    | Authorized AuthCode String
+    | Authenticated OAuth.Token
+    | Done UserInfo
+    | Errored Error
+
+
+type Error
+    = ErrStateMismatch
+    | ErrAuthorization OAuth.AuthorizationError
+    | ErrAuthentication OAuth.AuthenticationError
+    | ErrHTTPGetAccessToken
+    | ErrHTTPGetUserInfo
+      -- Lazy string error until we classify everything nicely
+    | ErrAuthString String
+
+
+type alias State =
+    String
+
+
+type alias MethodId =
+    String
+
+
+type alias AuthCode =
+    String
+
+
+type alias UserInfo =
+    { email : String
+    , name : Maybe String
+    , username : Maybe String
+    }
+
+
+type alias PendingAuth =
+    { created : Time.Posix
+    , sessionId : SessionId
+    , state : String
+    }
+
+
+type alias PendingEmailAuth =
+    { created : Time.Posix
+    , sessionId : SessionId
+    , username : String
+    , fullname : String
+    , token : String
+    }
+
+
+
+--
+-- Helpers
+--
+
+
+toBytes : List Int -> Bytes
+toBytes =
+    List.map Bytes.unsignedInt8 >> Bytes.sequence >> Bytes.encode
+
+
+base64 : Bytes -> String
+base64 =
+    Base64.bytes >> Base64.encode
+
+
+convertBytes : List Int -> { state : String }
+convertBytes =
+    toBytes >> base64 >> (\state -> { state = state })
+
+
+defaultHttpsUrl : Url
+defaultHttpsUrl =
+    { protocol = Https
+    , host = ""
+    , path = ""
+    , port_ = Nothing
+    , query = Nothing
+    , fragment = Nothing
+    }
+
+
+sleepTask isDev msg =
+    -- Because in dev the backendmodel is only persisted every 2 seconds, we need to
+    -- make sure we sleep a little before a redirect otherwise we won't have our
+    -- persisted state.
+    (if isDev then
+        Process.sleep 3000
+
+     else
+        Process.sleep 0
+    )
+        |> Task.perform (always msg)
+
+
+nothingIfEmpty s =
+    let
+        trimmed =
+            String.trim s
+    in
+    if trimmed == "" then
+        Nothing
+
+    else
+        Just trimmed
+
+
+
+-- Lamdera aliases
+
+
+type alias SessionId =
+    String
+
+
+type alias ClientId =
+    String