aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/Update
diff options
context:
space:
mode:
Diffstat (limited to 'src/client/elm/Update')
-rw-r--r--src/client/elm/Update/SignIn.elm9
1 files changed, 5 insertions, 4 deletions
diff --git a/src/client/elm/Update/SignIn.elm b/src/client/elm/Update/SignIn.elm
index f55ce6d..ade5761 100644
--- a/src/client/elm/Update/SignIn.elm
+++ b/src/client/elm/Update/SignIn.elm
@@ -4,9 +4,10 @@ module Update.SignIn
import Model.View.SignInView exposing (..)
import Model.Action.SignInAction exposing (..)
+import Model.Translations exposing (getMessage, Translations)
-updateSignIn : SignInAction -> SignInView -> SignInView
-updateSignIn action signInView =
+updateSignIn : Translations -> SignInAction -> SignInView -> SignInView
+updateSignIn translations action signInView =
case action of
UpdateLogin login ->
{ signInView |
@@ -16,10 +17,10 @@ updateSignIn action signInView =
{ signInView
| waitingServer = True
}
- ValidLogin message ->
+ ValidLogin ->
{ signInView
| login = ""
- , result = Just (Ok message)
+ , result = Just (Ok (getMessage "SignInEmailSent" translations))
, waitingServer = False
}
ErrorLogin message ->