diff options
Diffstat (limited to 'src/client/elm/Update/SignIn.elm')
| -rw-r--r-- | src/client/elm/Update/SignIn.elm | 9 |
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 -> |