diff options
author | Joris | 2018-10-30 20:44:12 +0100 |
---|---|---|
committer | Joris | 2018-10-30 20:44:12 +0100 |
commit | b5244184920b4d7a8d64eada2eca21e9a6ea2df9 (patch) | |
tree | c15f9e30cb31a3fb067e0660f9cf62a94d452a4c /client/src/View/SignIn.hs | |
parent | 8a28f608d8e08fba4bbe54b46804d261686c3c03 (diff) | |
download | budget-b5244184920b4d7a8d64eada2eca21e9a6ea2df9.tar.gz budget-b5244184920b4d7a8d64eada2eca21e9a6ea2df9.tar.bz2 budget-b5244184920b4d7a8d64eada2eca21e9a6ea2df9.zip |
Use waitfor with delete confirm button
Diffstat (limited to 'client/src/View/SignIn.hs')
-rw-r--r-- | client/src/View/SignIn.hs | 3 |
1 files changed, 1 insertions, 2 deletions
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 |