diff options
author | Joris | 2016-03-12 00:21:41 +0100 |
---|---|---|
committer | Joris | 2016-03-12 00:21:41 +0100 |
commit | 47104f0b3965cd1dfba0f466afdb5e8983dc7bec (patch) | |
tree | ac62eac33c624d14de93f3958270cbf60973b8b6 /src/client/elm/Update | |
parent | 9d57e149fcb124a28813c56f83cf254eb92baa42 (diff) |
Do not try to init data after login mail was sent
Diffstat (limited to 'src/client/elm/Update')
-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 -> |