From c542424b7b41c78a170763f6996c12f56b359860 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 10 Aug 2019 21:31:27 +0200
Subject: Add smooth transitions to modal show and hide

---
 client/src/View/SignIn.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'client/src/View/SignIn.hs')

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
-- 
cgit v1.2.3