From b5244184920b4d7a8d64eada2eca21e9a6ea2df9 Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 30 Oct 2018 20:44:12 +0100
Subject: Use waitfor with delete confirm button

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

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

diff --git a/client/src/View/SignIn.hs b/client/src/View/SignIn.hs
index 7f53299..428997e 100644
--- a/client/src/View/SignIn.hs
+++ b/client/src/View/SignIn.hs
@@ -41,8 +41,7 @@ view signInMessage =
 
         (signInResult, waiting) <- WaitFor.waitFor
           (\email -> Ajax.postJson "/askSignIn" (SignIn <$> email))
-          (_buttonOut_clic button)
-          (_inputOut_value input)
+          (R.tag (R.current (_inputOut_value input)) (_buttonOut_clic button))
 
       showSignInResult signInMessage signInResult
 
-- 
cgit v1.2.3