mirror of
https://github.com/TheAnachronism/docspell.git
synced 2025-04-05 10:59:33 +00:00
35 lines
584 B
Elm
35 lines
584 B
Elm
module Page.Login.Data exposing
|
|
( Model
|
|
, Msg(..)
|
|
, emptyModel
|
|
)
|
|
|
|
import Api.Model.AuthResult exposing (AuthResult)
|
|
import Http
|
|
import Page exposing (Page(..))
|
|
|
|
|
|
type alias Model =
|
|
{ username : String
|
|
, password : String
|
|
, rememberMe : Bool
|
|
, result : Maybe AuthResult
|
|
}
|
|
|
|
|
|
emptyModel : Model
|
|
emptyModel =
|
|
{ username = ""
|
|
, password = ""
|
|
, rememberMe = False
|
|
, result = Nothing
|
|
}
|
|
|
|
|
|
type Msg
|
|
= SetUsername String
|
|
| SetPassword String
|
|
| ToggleRememberMe
|
|
| Authenticate
|
|
| AuthResp (Result Http.Error AuthResult)
|