aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/SignIn
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/elm/SignIn')
-rw-r--r--src/client/elm/SignIn/Model.elm17
-rw-r--r--src/client/elm/SignIn/Msg.elm9
-rw-r--r--src/client/elm/SignIn/Update.elm31
-rw-r--r--src/client/elm/SignIn/View.elm63
4 files changed, 0 insertions, 120 deletions
diff --git a/src/client/elm/SignIn/Model.elm b/src/client/elm/SignIn/Model.elm
deleted file mode 100644
index 19d4305..0000000
--- a/src/client/elm/SignIn/Model.elm
+++ /dev/null
@@ -1,17 +0,0 @@
-module SignIn.Model exposing
- ( Model
- , init
- )
-
-type alias Model =
- { login : String
- , waitingServer : Bool
- , result : Maybe (Result String String)
- }
-
-init : Maybe String -> Model
-init mbSignInError =
- { login = ""
- , waitingServer = False
- , result = Maybe.map Err mbSignInError
- }
diff --git a/src/client/elm/SignIn/Msg.elm b/src/client/elm/SignIn/Msg.elm
deleted file mode 100644
index f753ebd..0000000
--- a/src/client/elm/SignIn/Msg.elm
+++ /dev/null
@@ -1,9 +0,0 @@
-module SignIn.Msg exposing
- ( Msg(..)
- )
-
-type Msg =
- UpdateLogin String
- | WaitingServer
- | ValidLogin
- | ErrorLogin String
diff --git a/src/client/elm/SignIn/Update.elm b/src/client/elm/SignIn/Update.elm
deleted file mode 100644
index 98de777..0000000
--- a/src/client/elm/SignIn/Update.elm
+++ /dev/null
@@ -1,31 +0,0 @@
-module SignIn.Update exposing
- ( update
- )
-
-import SignIn.Model exposing (..)
-import SignIn.Msg exposing (..)
-
-import Model.Translations exposing (getMessage, Translations)
-
-update : Translations -> Msg -> Model -> Model
-update translations msg signInView =
- case msg of
- UpdateLogin login ->
- { signInView |
- login = login
- }
- WaitingServer ->
- { signInView
- | waitingServer = True
- }
- ValidLogin ->
- { signInView
- | login = ""
- , result = Just (Ok (getMessage translations "SignInEmailSent"))
- , waitingServer = False
- }
- ErrorLogin message ->
- { signInView
- | result = Just (Err message)
- , waitingServer = False
- }
diff --git a/src/client/elm/SignIn/View.elm b/src/client/elm/SignIn/View.elm
deleted file mode 100644
index 88f74b0..0000000
--- a/src/client/elm/SignIn/View.elm
+++ /dev/null
@@ -1,63 +0,0 @@
-module SignIn.View exposing
- ( view
- )
-
-import Json.Decode as Decode
-
-import FontAwesome
-import View.Color as Color
-
-import Html as H exposing (..)
-import Html.Attributes exposing (..)
-import Html.Events exposing (..)
-
-import SignIn.Msg as SignInMsg
-import SignIn.Model as SignInModel
-
-import Update exposing (..)
-
-import Model exposing (Model)
-import Msg exposing (..)
-import Model.Translations exposing (getMessage)
-
-import View.Events exposing (onSubmitPrevDefault)
-
-view : Model -> SignInModel.Model -> Html Msg
-view model signInModel =
- div
- [ class "signIn" ]
- [ H.form
- [ onSubmitPrevDefault (SignIn signInModel.login) ]
- [ input
- [ value signInModel.login
- , on "input" (targetValue |> (Decode.map <| (UpdateSignIn << SignInMsg.UpdateLogin)))
- , name "email"
- ]
- []
- , button
- []
- [ if signInModel.waitingServer
- then FontAwesome.spinner Color.white 20
- else text (getMessage model.translations "SignIn")
- ]
- ]
- , div
- [ class "result" ]
- [ signInResult model signInModel ]
- ]
-
-signInResult : Model -> SignInModel.Model -> Html Msg
-signInResult model signInModel =
- case signInModel.result of
- Just result ->
- case result of
- Ok login ->
- div
- [ class "success" ]
- [ text (getMessage model.translations "SignInEmailSent") ]
- Err error ->
- div
- [ class "error" ]
- [ text (getMessage model.translations error) ]
- Nothing ->
- text ""