Login.elm

module Authentication.Login exposing (..)

import Html exposing (..)
import Html.Events exposing (..)
import Html.Attributes exposing (..)

import Authentication.Msg exposing (Msg)

import Common.LoadingButton exposing (loadingButton)


login : String -> String -> Bool -> Html Authentication.Msg.Msg
login username password isAuthenticating =

    div [ class "login" ]
        [ div [ class "form-group" ]
            [ label [ class "control-label" ] [ text "Username" ]
            , input [ onInput Authentication.Msg.UpdateUsername, class "form-control", value username ] []
            ]
        , div [ class "form-group" ]
            [ label [ class "control-label" ] [ text "Password" ]
            , input [ type_ "password", onInput Authentication.Msg.UpdatePassword, class "form-control", value password ] []
            ]
        , loadingButton "Authenticate" "log-in" isAuthenticating Authentication.Msg.AuthenticateRequest
        ]