diff options
author | Joris | 2019-08-10 21:31:27 +0200 |
---|---|---|
committer | Joris | 2019-08-10 21:31:27 +0200 |
commit | c542424b7b41c78a170763f6996c12f56b359860 (patch) | |
tree | 44830a524c592b53e93190c0461676edbfa6fdb8 /client/src/View/SignIn.hs | |
parent | c5c54722f4736108c8418c9865f81f05a6db560d (diff) | |
download | budget-c542424b7b41c78a170763f6996c12f56b359860.tar.gz budget-c542424b7b41c78a170763f6996c12f56b359860.tar.bz2 budget-c542424b7b41c78a170763f6996c12f56b359860.zip |
Add smooth transitions to modal show and hide
Diffstat (limited to 'client/src/View/SignIn.hs')
-rw-r--r-- | client/src/View/SignIn.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/client/src/View/SignIn.hs b/client/src/View/SignIn.hs index 6fbf6d6..f8b985f 100644 --- a/client/src/View/SignIn.hs +++ b/client/src/View/SignIn.hs @@ -37,7 +37,7 @@ view signInMessage = { _inputIn_label = Msg.get Msg.SignIn_EmailLabel , _inputIn_validation = SignInValidation.email }) - (const "" <$> R.ffilter Either.isRight signInResult) + ("" <$ R.ffilter Either.isRight signInResult) validate) validate <- _buttonOut_clic <$> (Component.button $ @@ -52,7 +52,7 @@ view signInMessage = (signInResult, waiting) <- WaitFor.waitFor (Ajax.postJson "/askSignIn") (ValidationUtil.fireMaybe - ((\f -> const f <$> SignInValidation.signIn f) <$> form) + ((\f -> f <$ SignInValidation.signIn f) <$> form) validate) showSignInResult signInMessage signInResult |